Hinzufügen von Datenbeschriftungen zu jedem Segment in Spalte gestapelten Diagramm

Question

Ich habe den folgenden Code, um eine chart für mich basierend auf Werten aus einem vorherigen Teil dieser macro übergeben.

Set graph2 = graphSheet.ChartObjects.Add(Left:=200, Top:=200, Width:=450, Height:=300) 

    graph2.Chart.ChartWizard graphSheet.Range("A1:C5"), gallery:=xlColumnStacked, PlotBy:=xlColumns, serieslabels:=1, _ 
         HasLegend:=True, Title:="Cumulative Operating Portfolio", categorytitle:="Year", _ 
         valuetitle:="MW_dc", categorylabels:=1 

es funktioniert gut, aber ich würde numerische data labels jedes Segment des gestapelten Graphen hinzufügen. Ich habe versucht, den folgenden Code ein, um zu sehen, ob ich dort einen Teil des Weges bekommen kann:

With graph2.SeriesCollection(1) 
     .HasDataLabels -True 
     .DataLabels.NumberFormat = "####.##" 
    End With 

Das funktioniert nicht, und es ist nicht überraschend, da ich bin nicht allzu gut informiert über die property. Wie kann ich Datenbeschriftungen hinzufügen?

Answer 1

Die SeriesCollection ist ein Mitglied der Chart Eigenschaften, und nicht die ChartObject.

ChartObject 
    | 
    > Chart 
     |  
     > SeriesCollection 

Also für Ihren obigen Code unten verwenden Sie den Code zu arbeiten:

With graph2.Chart.SeriesCollection(1) 
    .HasDataLabels = True 
    .DataLabels.NumberFormat = "####.##" 
End With