Office: Kreisdiagramm beschriften mit VBA

Hallo noch jemand da,

unter google gibts nicht viel dazu .
habe natürlich auch ein Makro aufgezeichnet , aber "SeriesCollection" wie bei einem Säulendiagramm taucht hierbei nicht auf, es wird gar nichts aufgezeichnet was danach aussieht
Wenn ich SeriesCollection(1) verwende bewirkt es gar nichts , wenn ich noch SeriesCollection(2) dazu nehme gibt es eine Fehlermeldung"Die Methode SeriesCollection für das Chart Object ist fehlgeschlagen"

(Excel97)

Code:

 

Moin, Markus,

Makro aufzeichnen reicht manchmal nicht aus, man muss dabei schon die richtigen Befehle ausführen...

Der folgende Code weist dem ersten Segment den Text zu (Diagramm besteht bei mir bereits):

Code:

 

hallo jinx,


klar , stimmt schon , aber ich hatte beim aufzeichen natürlich die entsprechenden punkte gemacht für Beschriftung und Prozentangabe und dann eben erwartet dass dabei was zu sehen ist im makro.

Wie auch immer, habe eben deine code verwendet
habe der einfacheit halber den Code dahintegesetzt

ich hab dann zwar den Text als Beschriftung aber die Prozentangaben werden dabei überschrieben
Wieso lässt sich "SeriesCollection" eigentlich nicht verwenden um die Legende zu beschriften, so wie bei einem Säulendiagramm?

Code:

 

Moin, Markus,

mir ist jetzt überhaupt nicht mehr klar, was Du denn nun eigentlich beschriften willst:

• die Kreissegmente werden in der Art angesprochen, wie ich es in meiner Antwort dargestellt habe,
• der Titel wird so angesprochen, wie Du es im Abschnitt With ActiveChart beschrieben hast und
• für eine Legende kenne ich nur den Umweg über eine eigene Spalte, nämlich zum Beispiel ActiveChart.SeriesCollection(1).XValues = "=Tabelle2!R2C1:R4C1"; diese ändert aber auch die Bezeichnung an den Segmenten...

 

Hi jinx,

sorry, war nicht mit absicht

ich wäre mit beidem zufrieden , mit der Beschriftung der Legende ,oder der Beschriftung wie es dein Beispiel bewirkt
ActiveChart.SeriesCollection(1).DataLabels(1).Select
Selection.Text = "Warum nicht?"

Leider ist es so , dass bei dieser Anweisung die Prozentangaben nict mehr erscheinen , obwohl bei manuellem Einfügen es die Möglichkeit gibt "Beschriftung +Prozentangabe anzeigen". Deswegen wollte ich auf die Legendenbeschriftung umsteigen und wundere mich wieso ".SeriesCollection(2).Name=" nicht auch
beim Kriesdiagramm für die Legendenbeschriftung verwendet werden kann?

Wie auch immer , denke das "=Tabelle2!R2C1:R4C1"; wird klappen , wenn Du mir noch eine Anstoss geben kannst bez. Zellbezug , also wieso
R2C1:R4C1, mir ist nicht klar wieso es nicht heisst C1:C2 oder C1:E3
kurz um, versteh diesen zellbezug nicht ?

 

Moin, Markus,

zuerst zur Beschriftung: das ist doch machbar - siehe Code:

Code:

 

Hallo jinx,

konnte es mit deinem vorletztem Beispiel lösen
also =TabelleR2C1...,
werde den kompletten Code nochmal posten

das letzte Beispiele ist sicher noch etwas eleganter, konnte es zwar noch nicht testen(weil unterwegs) aber sieht so aus

jedenfalls vielen Dank für Deine Hilfe

 

Hi jinx,

dies wäre der Code der die Kreisdiagramme erstellt und mit deinem Beispiel (SeriesCollection(1).XValues ) beschriftet

Code: