仅在特定范围的幻灯片上应用图表格式

Apply Chart formatting only on the specific range of slides

如何仅在特定范围的幻灯片上应用图表格式。请协助。

这里有一个更简单的方法:

Private Sub Okay_Click()
    Dim sld As Slide
    Dim shp As Shape
    
    For x = 1 To 3
        For Each shp In ActivePresentation.Slides(x).Shapes
            'Do stuff to shapes
        Next shp
    Next x
End Sub