0

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

 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

谢谢你的帮助。

4

1 回答 1

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
于 2013-03-25T15:12:02.523 回答