如何使用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控件創建UserForm。

3.

試試這個開始幻燈片[source]：

Sub BeginSlideShow() 
    ActivePresentation.SlideShowSettings.Run 
End Sub 

此外：
有沒有個人的當量（從Excel）在PowerPoint中，只有一個地方存儲代碼演示本身，因此在執行任何代碼之前需要打開演示文稿。