0

スライド ショー プレゼンテーションの開始時に実行するコードがありますが、時間がかかるため、Powerpoint ツールバーにこのコードを実行するためのボタンを作成したいと考えています。

ボタンをクリックすると、プログレス バーが表示されます。

vba を使用して Powerpoint ツールバーに新しいボタンを作成するにはどうすればよいですか?また、ボタンをクリックしたときにプログレス バーを作成するにはどうすればよいですか?

あ、プログレスバーの最後でスライドショーを実行したい。どうすればそれを行うことができますか？

前もって感謝します！

4

1 に答える 1

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.

スライド ショーを開始するには、これを試してください[ソース] :

Sub BeginSlideShow()
    ActivePresentation.SlideShowSettings.Run
End Sub

さらに
、 PowerPoint には PERSONAL (Excel から) に相当するものはありません。コードを格納する場所はプレゼンテーション自体だけなので、コードを実行する前にプレゼンテーションを開く必要があります。

于 2010-02-17T13:34:26.017 に答える