Neuer Versuch: transparentes Diagramm in UF

Forumthread: 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

ein ansatz...

14.08.2003 09:43:03

axel.meyer
Ich versuchs mal

14.08.2003 10:04:12

ThomasJ

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

Beliebteste Forumthreads (12 Monate)

Neuer Versuch: transparentes Diagramm in UF

Forumthread: Neuer Versuch: transparentes Diagramm in UF

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread