Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 09:54:17
Durchschnittswerte zwischen Tagen berechnen
16.04.2024 09:51:15
Frage: KPI - Logistik Dashboard
16.04.2024 09:22:11
Wenn Istleer über mehrere Blätter
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige