Question

我正在尝试为我正在处理的PowerPoint演示文稿添加一些交互。我写了一个小VB，它会在脚本运行时增加特定图表对象的大小和位置。我在设计模式下测试了脚本，一切似乎都运行正常。但是，当我将代码链接到操作按钮并尝试从幻灯片放映中运行时，代码不会运行。我在Excel中完成了大部分VB，所以我之前没有遇到过这个问题。任何人都可以建议修复此问题。我的代码如下：

 Sub MoveChart23()
    Dim s
    For Each s In ActiveWindow.Selection.SlideRange.Shapes
     If s.Name = "Chart 23" Then
      s.Top = 50
      s.Width = 620
      s.Left = 50
      s.Height = 400
     End If
    Next
End Sub

感谢您的帮助。

Answer 1

无论如何，我认为你的问题在以下几行：

For Each s In ActiveWindow.Selection.SlideRange.Shapes

虽然您在演示模式中没有选择。根据您运行和控制整个演示文稿的方式，您应该使用类似的东西：

For Each s In ActiveWindow.Slides(1).Shapes

但如果您需要参考当前查看的幻灯片，您应该这样：

For Each s In SlideShowWindows(1).View.Slide.Shapes

为什么我的PowerPoint / VBA不会在我的PowerPoint演示文稿中运行

1 个答案: