如何使excel VBA代码适应PPT VBA？

Question

我想要做的是制作VBA代码，它将隐藏并在图表上显示单个系列。我知道如何在Excel中编写VBA代码，但不知道如何在PPT中重写相同的代码。

我在Excel中有以下代码：

Sub FirstSer()
Dim cht As Chart
Dim ser As Series

'Retrieve our chart and seriescollection objects'
Set cht = Worksheets("Sheet1").ChartObjects("Chart 1").Chart
Set ser = cht.SeriesCollection(1)

'Set the first series line to be hidden'

With ser.Format.Line
    If .Visible = msoTrue Then
        .Visible = msoFalse
        ser.Name = vbNullString
    Else
        .Visible = msoTrue
        ser.Name = "First"
    End If
End With
End Sub

如何在PowerPoint VBA中编写相同的代码？我试图在类似的帖子中找到解决方案，但是每个帖子都考虑到特定的代码，这对我来说是很难适应我的代码的，因为我是VBA的新手。

Answer 1

替换图表的Excel特定引用：

Set cht = Worksheets("Sheet1").ChartObjects("Chart 1").Chart

在Powerpoint演示文稿中使用指向正确对象的引用器，如下所示：

Set cht = ActivePresentation.Slides(1).Shapes(1).Chart

剩下的代码可以保持原样。

附带说明: VBA是VBA -- PowerPoint VBA和Excel之间没有区别。当然，在Excel中您可以得到一些特定于Excel的对象，但是在一个应用程序中使用VBA并没有真正的区别。例如，您可以轻松地使用它从Excel文件中生成完整的演示文稿。