vba代码在“普通”视图中运行良好，但在PowerPoint2003中不能在“幻灯片”中运行

Question

我有一个有6张幻灯片的演示文稿。幻灯片5包含vba /宏代码旋转图表，改变角度等，这些代码工作良好，通过‘vba编辑器’运行‘在活动的文件。(.ppt)，但当放入’幻灯片放映‘模式代码不工作。

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