为什么我的PowerPoint/PowerPoint演示文稿中不能运行我的宏/ VB

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