Kreisdiagramm formatieren VBA?

12/07/2008 - 21:57 von Peter Schürer | Report spam
Hallo Zusammen,

XL2002
Aus dem Bereich F2:G20 wird ein Kreisdiagramm erstellt.
In F2:F20 steht die Kategoriebezeichnung.
Gibt es eine Möglichkeit das ich die Zelle jeder einzelnen Kategorie mit
einer Farbe fülle und diese Farbe auf den Datenpunkt im Dia als Füllfarbe
angewendet wird?
Hintergrund:
Die Datei, um die es hier geht, ist eine Vorlage.
In der Datentabelle ist ein Button "Aktualisieren".
Klick der Anwender darauf, werden die Kategoriebezeichnungen aktualisiert,
die Werte neu berechnet, die Kategoriebezeichnung im Dia gelöscht und wieder
erstellt und stàndig werden die Standardfarben gesetzt.
Außerdem wird die Datenbeschriftung von "XYZ = 19,25 %", Schrift FETT und
Schriftgrad 10 wieder in Standard "XYZ; 19,25 %", Schrift NORMAL und
Schriftgrad skalierbar eingestellt.

Wie kann ich also per VBA eine Farbe für den Datenpunkt (aus einer gefüllten
Zelle oder per Verweis auf die Datenbeschriftung XYZ, wenn Beschriftung=XYZ
dann Grün) festlegen und die Schrift formatieren?

Danke im Voraus :-)

MfG
Peter
 

Lesen sie die antworten

#1 Claus Busch
12/07/2008 - 22:25 | Warnen spam
Hallo Peter,

du könntest in Spalte H zu jeder Kategorie einen ColorIndex hinterlegen.
Das Einfàrben könntest du dann so erledigen (Tabellenblattname
anpassen):
Sub Kreisdiagramm()
Dim SC As SeriesCollection
Dim i As Integer

'Hier Tabellenblattname und ChartObject anpassen
Set SC = Worksheets("Tabelle3").ChartObjects(1).Chart.SeriesCollection

For i = 1 To SC(1).Points.Count
With SC(1).Points(i)
.Interior.ColorIndex = Cells(i + 1, 8).Value
End With
Next

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen