Question

我有以下代码根据从此chart的上一部分传入的值为我生成macro。

    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

它工作正常，但是，我想将数字data labels添加到堆叠图的每个段。我尝试了以下代码，看看我是否可以获得任何方式：

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

这不起作用，因为我对property不太了解，所以并不奇怪。如何添加数据标签？

Answer 1

SeriesCollection我是Chart属性的成员，而不是ChartObject。

ChartObject
   |
   > Chart
       |       
       > SeriesCollection

因此，对于您的上述代码，请使用以下代码：

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

将数据标签添加到列堆积图表中的每个段

1 个答案: