Legende(Rubrik) per VBA umbenennen
30.07.2021 10:29:47
Andre
ich möchte per VBA ein Makro programmieren, dass mir ein Kreisdiagramm erstellt.
In Spalte A stehen Namen und in Spalte B die zugehörigen Zahlen. Mein Code lautet bisher wie folgt:
Sub Diagramm()
ActiveSheet.Shapes.AddChart2(251, xlPie).Select
With ActiveChart
.SetSourceData Worksheets("Tabelle1").Range("B8:B100")
.ApplyDataLabels xlDataLabelsShowPercent
.Parent.Name = "Test"
.SeriesCollection(1).XValues = "=Tabelle1!$A$8:$A$100"
End With
End Sub
Beim Debugging wird mir die Zeile .SeriesCollection markiert, also die Benennung meiner Rubriken funktioniert nicht.
Ich habe schon einige weiter Sachen ausprobiert, wie z.b. ein
.SeriesCollection.NewSeries vor das .SeriesCollection zu packen, oder das .XValues in ein .Names zu ändern und einiges mehr, aber die Legende möchte einfach nicht funktionieren.
Hat jemand noch Tipps, einen Alternativcode oder evt einen Überarbeitungvorschlag?
Ich wäre um jede kleine Hilfe dankbar.
Viele Grüße,
Andre
PS: wenn mir noch jemand sagen könnte, wie ich anstatt der Standardvorlage (xlPie) meine vorgefertigte, gespeicherte Vorlage nutzen kann wäre das großartig :)
-> hier habe ich ActiveChart.ApplyChartTemplate ("Speicherort") ausprobiert, aber auch das möchte nicht funktionieren.
