更改所有图表的字体样式

Question

我正在尝试让我的代码更改所有图表的图表样式。我已经对表格进行了管理，但是如果我更改图表的代码，它就不起作用。我错过了什么吗？这是有效的表格代码，但它似乎失败了，因为“应用样式”必须为图表使用不同的样式。

表代码

If oSh.HasTable Then
  Set oTbl = oSh.Table
  oTbl.ApplyStyle ("{5C22544A-7EE6-4342-B048-85BDC9FD1C3A}"), True
End If

我尝试了以下代码

If oSh.HasChart Then
  Set oChr = oSh.Chart
  oChr.ApplyStyle ("{5C22544A-7EE6-4342-B048-85BDC9FD1C3A}"), True
End If

但我收到错误

编译错误：- 未找到方法或数据成员。

表格代码将样式移至Medium Style 2，Accent 1。我希望图表具有相同的效果。

Answer 1

• 使用

  ChartSytle

  更改样式

微软文档：

Chart.ChartStyle 属性 (PowerPoint)

Sub ChartSytle()
    Dim shp As Shape
    With ActiveWindow.Selection
        If .ShapeRange.HasChart = msoTrue Then
            Set shp = .ShapeRange(1)
            shp.Chart.ChartStyle = 12  ' 1 to 48, modify as needed
        End If
    End With
End Sub