Felder eines Kreisdiagramms per VBA einfärben
07.06.2005 10:06:21
Reinhard
Ich habe folgendes Problem:
Ich möchte per VBA Kreisdiagramme erstellen. Wichtig ist dabei jedoch das ich den einzelnen Segmenten bestimmte Farben zuordnen kann, da bestimmte Farben für einzelne Produktkategorien in unserem Unternehmen vorgegeben sind.
Wie kann ich per VBA auf die einzelnen Felder des Diagramms zugreifen?
Hier der Code den ich verwende:
Sub diagrammezeichnen()
Dim x As Long
Dim stArt As Integer
Dim chartname As String
stArt = 0
For x = 1 To 15
If Worksheets(2).Cells(x, 1) = "" Then
chartname = "chart" + CStr(x)
ActiveSheet.ChartObjects.Add(30, 150, 400, 300).Name = chartname
ActiveSheet.ChartObjects(chartname).Activate
ActiveChart.ChartType = xl3DPie
ActiveChart.SetSourceData Source:=Sheets("Ausgabe").Range("A" + CStr(stArt + 2) + ":A" + CStr(x - 1) + ",D" + CStr(stArt + 2) + ":D" + CStr(x - 1)), PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Name = Worksheets(2).Cells(stArt + 1, 1)
ActiveChart.Location Where:=xlLocationAsObject, Name:="Ausgabe"
ActiveChart.HasLegend = False
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabelAndPercent, LegendKey:=False, HasLeaderLines:=True
stArt = x
End If
Next
End Sub
Danke in voraus für eure Hilfe!
