powerpoint vba随机滑动开始

Question

我有一个带有近似40张幻灯片的PPT卡座。甲板由4层楼组成，每层有10个滑梯。我想在Powerpoint 2010中做的是随机选择4个故事中的哪个故事。所以我想我需要一些在幕后触发的代码，并告诉Powerpoint跳转到幻灯片1（故事1），幻灯片11（故事2），幻灯片21（故事3），幻灯片31（故事4）。 / p>

有没有人可以提供一些能够实现这一目标的VBA？ Powerpoint 2010.Windows 7。

Answer 1

在每张幻灯片上创建4个按钮（幻灯片1,11,21,31）

点击这些按钮添加此操作。

 Private Sub CommandButton1_Click()
      ActivePresentation.SlideShowWindow.View.GotoSlide 1 '(or11 or 21, or 31)
 End Sub

注意：这仅在幻灯片放映期间有效。