未为 PPT 中的图表设置数据标签属性

Question

我正在尝试使用此代码 sn-p 设置数据点的数据标签属性，但由于某种原因，这些属性未按预期设置。 [请看图片以获得更好的清晰度]。

一种解决方法可能是使用Reset label Text [参见图2]，从而强制数据标签更新设置的属性。但我找不到相同的vba。帮助。

 'This is happening inside a loop

 Dim thisbarpoint As Point
 Set thisbarpoint = thischart.FullSeriesCollection(ibar).Points(jbar)

 thisbarpoint.DataLabel.ShowCategoryName = True
 thisbarpoint.DataLabel.ShowValue = False
 thisbarpoint.DataLabel.ShowSeriesName = False

 Debug.Print thisbarpoint.DataLabel.caption
 Dim DataLabelCaption As String
 DataLabelCaption = thisbarpoint.DataLabel.caption
 Debug.Print DataLabelCaption 'This gives the value as 26.7%

PIC-1：

PIC-2：

Answer 1

这对我来说很好用：

Dim cht As Chart, s As Series
    
Set cht = ActivePresentation.Slides(1).Shapes(1).Chart
Set s = cht.SeriesCollection(1)

Debug.Print s.HasDataLabels 'False

s.HasDataLabels = True
With s.DataLabels
    .ShowCategoryName = True
    .ShowValue = False
    .ShowSeriesName = False
End With

我们无法知道您的文件是否已损坏，或者问题是否出在您未包含的代码中。