Question

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

我在Excel VBA中有这段代码：

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 VBA之间没有区别。当然，在Excel中，您可以获得一些特定于Excel的对象，但在一个应用程序或另一个应用程序中使用VBA没有真正的区别。例如，您可以轻松地使用它从Excel文件中生成完整的演示文稿。

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

1 个答案: