vba - vba 代码在“普通”视图中运行良好，但在 powerpoint 2003 中的“幻灯片”中不起作用

Question

我有一个包含 6 张幻灯片的演示文稿。幻灯片 5 包含用于旋转图表、更改角度等的 vba / 宏代码，这些代码通过'vba 编辑器'RUN'在活动文档中运行良好。（.ppt）但是当放入'幻灯片放映'模式时，代码不起作用。Dbug msg ： “无效的请求。没有活动文档存在”。请帮助代码。

Sub MoveItInSlideShow()
  With SlideShowWindows(1).Presentation.Slides(5).Shapes("Picture 2")
      ActiveWindow.Selection.SlideRange.Shapes("Picture 2").Select
      Application.Run "'Hora.ppt'!Slide7.CreateSpirograph"

  end with
end sub

谢谢

Answer 1

此行是不必要的，因为您已经在前面的 With 语句中设置了对形状的引用：

ActiveWindow.Selection.SlideRange.Shapes("Picture 2").Select

但是由于您无法在幻灯片视图中选择任何内容，因此任何尝试 .Select 任何内容都会导致错误，这可能就是您所看到的。

如果此处的代码需要选定的形状，则需要重写它：

Hora.ppt'!Slide7.CreateSpirograph