vba - Powerpoint VBA - 为数据标签设置数据范围

Question

我不知道如何使用 VBA 为数据标签设置数据范围。Powerpoint 也没有录制功能。

谁能告诉我如何使用 VBA 来做这件事？

Answer 1

实现的代码如下:

Dim myChart As Chart
Dim mySerCol As SeriesCollection
Dim strRange As String

strRange = "=Sheet1!$F$2:$F$5" 'To hold the range for the new labels

Set myChart = ....[put in code to get the appropriate chart]
Set mySerCol = myChart.SeriesCollection(i)
mySerCol.ApplyDataLabels 'Turn on the datalabels for this series

'The next line sets the range to get the values from
mySerCol.Format.TextFrame2.TextRange.InsertChartField msoChartFieldRange _
               , strRange, 0
mySerCol.ShowRange = True 'Show the values from the range
mySerCol.ShowValue = False 'Do not show the actual values of the points

请注意，这只会对其中一个系列执行此操作。要执行其他操作，请在 myChart.SeriesCollections(i) 行中循环遍历 i。