vba - 如何使用 vba 在 Powerpoint 中制作新按钮以及单击后如何制作进度条？

Question

我有一些在幻灯片演示开始时执行的代码，但由于需要一些时间，我想在 Powerpoint 工具栏中创建一个按钮来执行此代码。

所以，我点击按钮，然后我想出现一个进度条！

如何使用 vba 在 Powerpoint 工具栏中创建一个新按钮，以及如何在单击它时制作进度条？

哦，在进度条的末尾我要执行幻灯片放映。我该怎么做呢？

提前致谢！

Answer 1

1.

如何使用 vba 在 Powerpoint 工具栏中创建新按钮

试试这个代码：

Sub AddButton()
   Dim cb As CommandBar

   Set cb = Application.CommandBars.Add("additional_toolbar", msoBarTop, , True)

   With cb.Controls.Add(msoControlButton)
      .Caption = "click me"
      .OnAction = "macro_name"
      .Style = msoButtonCaption
   End With
   cb.Visible = True
End Sub

2.

单击它时如何制作进度条？

我建议创建带有 ProgressBar 控件的用户窗体。

3.

试试这个开始幻灯片放映[来源]：

Sub BeginSlideShow()
    ActivePresentation.SlideShowSettings.Run
End Sub

另外：
在 PowerPoint 中没有等效的 PERSONAL（来自 Excel），存储代码的唯一地方是演示文稿本身，因此您需要在执行任何代码之前打开演示文稿。