Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Neuer Versuch: transparentes Diagramm in UF

Forumthread: Neuer Versuch: transparentes Diagramm in UF

Neuer Versuch: transparentes Diagramm in UF
14.08.2003 08:28:10
ThomasJ
Hallo Forum,
ich hätte da ein Problem:
Habe eine UF, in die ich ein Diagramm einfüge. Soweit kein Problem.
Möchte aber nun den Hintergrund des Diagramms transparent haben (ChartArea UND PlotArea). Mit
ColorIndex=xlNone
funktioniert das ja auch direkt in dem Sheet, in der UF aber erscheint der Hintergrund weiß!
Danke für Eure Mühe
Gruß
Thomas
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ein ansatz...
14.08.2003 09:43:03
axel.meyer
hi thomas,
diagramm markieren (nachdem du die farben der flächen entfernt hast), shift halten, menuepunkt bearbeiten, "bild kopieren", darstellung:"wie ausgedruckt", paste, und du hast das bild deines diagrammes ohne farbe. darstellung:"wie ausgedruckt" ist dabei der trick.
nur: ich habe das bild (.wmf) nicht in die userform bekommen.... vielleicht schreibst du noch mal rein, wie das geht...
gruß, axel

Anzeige
Ich versuchs mal
14.08.2003 10:04:12
ThomasJ
Und das ist mein code:

Sub dia()
Dim i As Byte
i = 1
Dim diagramm
Dim dateiname
Dim bild
Charts.Add
With ActiveChart
.ChartType = xlColumnClustered
.SetSourceData Source:=Sheets("Diagramm").Range("K20")
.Location Where:=xlLocationAsObject, name:="Diagramm"
End With
For i = 1 To 34
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i).Values = Sheets(i).Cells(10, 11)
ActiveChart.SeriesCollection(i).XValues = Maske1.spieltag1.Value
Next i
With ActiveChart
.Axes(xlValue).HasMajorGridlines = False
.HasLegend = False
.ApplyDataLabels Type:=xlDataLabelsShowNone, LegendKey:=False
.HasDataTable = False
.ChartArea.Border.LineStyle = 0
.ChartArea.Interior.ColorIndex = xlNone
With .PlotArea
.Top = 0
.Left = 0
.Height = 100
.Width = 300
.Interior.ColorIndex = xlNone
End With
End With
Set diagramm = Sheets("Diagramm").ChartObjects(1).Chart
diagramm.Parent.Width = Maske1.bild1.Width
diagramm.Parent.Height = Maske1.bild1.Height
dateiname = ThisWorkbook.Path & Application.PathSeparator & "diagramm.gif"
diagramm.Export FileName:=dateiname, FilterName:="GIF"
Maske1.bild1.Picture = LoadPicture(dateiname)
ThisWorkbook.Sheets("Diagramm").ChartObjects(1).Delete
Kill dateiname
End Sub

Dazu muss ein Tabellenblatt "Diagramm" bestehen und ein Label (bei mir "bild1") in der UF.
Gruß Thomas

Anzeige
;

Forumthreads zu verwandten Themen

Diagrammtitel auslesen
WolfgangN

Hallo,
Ich möchte mir gern alle Diagrammnamen und in der Spalte daneben den dazugehörenden Diagrammtitel anzeigen lassen. Ich wollte dafür das nachstehende Makro nutzen. Die Auflistung der Namen erfolgt anstandslos, aber die Auflistung der Titel erzeugt immer Fehler.
Ich würde mich sehr...
22.08.2008 15:09:13
Thread-ID: 1003909
3 Beiträge
Anzeige
Auswählen einer Zelle sofort mit X kennzeichnen.
Richard

Hallo,
ich habe folgenden Code geschrieben: Wenn ich Zelle A1 auswähle, dann soll er dort ein X reinsetzten, steht da schon ein X dann soll er es wieder rausnehmen.
Jetzt kommt 'ne ganz blöde Frage: Wie definiere ich einen ganzen Bereich indem er das machen soll? Zum Beispiel A1:B100. S...
22.08.2008 15:12:33
Thread-ID: 1003911
3 Beiträge
Select Diagramm entfernen
WolfgangN

Hallo,
in Tabelle6 sind Tabellen und Diagramme, in Tabelle7 nur Tabellen. Ich suche beim aktivieren der Tabelle6 in Tabelle7 ein Datum (der1.des Monats) dies funktioniert bis auf einen Fall gut. Ist in Tabelle6 irgendein Diagramm selectiert worden, danach wird eine andere Tabelle aktiv, dan...
28.08.2008 20:31:23
Thread-ID: 1005588
3 Beiträge
Diagramm aktualisiert sich nicht!
Mike

Hallo,
ich habe das Problem, daß mir in einem Diagramm die Werte nicht aktualisiert werden!
Die Werte der Tabelle, welche dem Diagramm zugrunde liegen, aktualisieren sich beim berechnen!!!
?
Gruß aus Bayern
Mike
10.09.2008 16:42:00
Thread-ID: 1008848
4 Beiträge
Formel lässt sich nicht aufzeichnen
David

Hallo zusammen,
ein User, dem ich helfen möchte, soll für mich eine Formel aufzeichnen, damit ich die "Übersetzung" in VBA mit meinem Makro vergleichen kann. Allerdings weigert sich der Rekorder, diese Formel aufzuzeichen. Wenn er gestartet wird und dann die Array-Formel mit STRG-SHIFT-ENTE...
22.09.2008 11:13:00
Thread-ID: 1011409
7 Beiträge
Arbeitsblätter UND Diagrammblätter drucken
th.heinrich

Bestes Forum,
Mit diesem Beispiel von Hans können Arbeitsblätter in einer User-Form zum Druck gewählt werden.
Option Explicit
Private Sub cmdAbbrechen_Click() Unload Me End Sub
Private Sub cmdDrucken_Click() Dim arrWks() Dim iCounter As Integer, iCount As Integer For iCount...
29.09.2008 15:12:24
Thread-ID: 1013131
15 Beiträge
Diagramme fortschreiben
hindenberger@gmx.de

Hallo,
ich hab wahrscheinlich eine klassische Frage, aber dennoch nochmal:
Gibt es in Excel die Möglichkeit, Diagramme dynmische fortzuschreiben. Dh. wenn ich neuen Zellen ergänzen, dass das Diagramm sich erweitert.
Danke
Gruß,
Patric
26.10.2008 09:31:43
Thread-ID: 1019308
3 Beiträge
3D Diagramm erstellen aus Matrix
Kay

Hallo,
Ich habe in Excel eine Matrix, die folgendermaßen aufgeteilt ist
A B C D
15 12% 10% 15% 20%
30 10% 13% 17% 19%
45 8% 12% 15% 17%
Wie bekomme ich es nun hin, dass mir auf der Größenachse alle %-Werte, auf der Rubrikenachse die Zeile...
29.10.2008 21:38:38
Thread-ID: 1020422
7 Beiträge
Rubrikachse formatieren bei Diagrammen
Hans

Hallo,
kann mir jemand bei der Erstellung von Diagrammen helfen, die ohne erkennbaren Grund einmal auf der Rubrikachse (X-Achse) fortlaufende Ziffern z. B. 1, 2, 3, ... n, dann wieder die tatsächlichen Werte aus einer Tabelle zeigen. Wichtig wäre, daß im Diagramm immer die Werte aus der Tab...
30.10.2008 11:17:54
Thread-ID: 1020534
3 Beiträge
Anzeige
Diagramm mit 3 Achsen
Karen

Hallo Forum,
ich möchte ein Diagramm mit drei Achsen darstellen (siehe Anhang) - eine Datenreihe per Säule (Prozent), die andere per Linie (ganze Zahlen). Leider bekomme ich die dritte Achse nicht in das Diagramm.
Kann mir jemand den entscheidenen Tip geben?
Vielen Dank im voraus....
06.11.2008 08:52:00
Thread-ID: 1022148
2 Beiträge
Diagramm automatischerweitern
harald

Hallo,
ich habe mal wieder ein Problem: In Tabelle1 (Daten) sollen für jeden Tag seit der letzten Aktualisierung 24 Werte hinzugefügt werden (geschieht über Kopieren und Einfügen).
Dabei sollte in Tabelle2 (Diagramm) automatisch ein Liniendiagramm mit allen Werten erzeugt werden.
We...
11.11.2008 21:10:25
Thread-ID: 1023667
14 Beiträge
Anzeige
Diagramm-Erstellung - Monatsauswahl beschränkt?
Stefanie

Hallo zusammen,
ich würde gernen einen 12 Monatsvergleich von Beständen machen. Hier habe ich ein Liniendiagramm verwendet. Jedoch klappt das bei den Reihenwerten nur bis zum Juli- den August und ff nimmt er nicht mehr.
Weiss jemand an was dies liegen könnte?
Vielen Dank vorab,
...
20.11.2008 11:44:35
Thread-ID: 1026358
2 Beiträge

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige