PowerPoint VBAでメッセージボックスと入力ボックスを操作するにはどうすればよいですか？

コメントを見ていくと、PowerPointでVisualBasicの入力ボックスとメッセージボックスを操作する方法に関する読者からの質問がいくつかあります。

このチュートリアルでは、プレゼンテーションの作成を自動化するときにこれらの機能を使用するのに役立つ非常に基本的な基礎知識を提供します。

[開発者]タブの設定

まず、PowerPointの開発者環境を有効にする必要があります。このチュートリアルに従って、開発タブを設定します。

PowerPointで、[開発者]メニューに移動し、[VisualBasic]をクリックします。

プロジェクトツリーで、プレゼンテーションを右クリックし、[挿入]をクリックして、[モジュール]を選択します。新しいVBAモジュールが作成されます。これは、コードを記述する場所です。

PowerPointのメッセージボックス

メッセージボックスは一種の自明であり、その目的はエンドユーザーにいくつかの有用な情報を表示することです。モジュールに次のコードを記述します。

Sub simplemessagebox()
MsgBox ("This is a simple message box")
End Sub

F5またはRunを押して、結果を確認します。

メッセージと入力ボックスの例

メッセージボックスとは異なり、入力ボックスはユーザーからのフィードバックを得るために使用されます。以下の例を見てみましょう。スクリプトは、プレゼンテーションに新しいスライドを自動的に挿入します。

実装するものは次のとおりです。

1. 最初に、追加するスライドの数をユーザーに求めます（入力ボックスを使用）。
2. 次に、作成するスライドの数をユーザーに通知します（メッセージボックスを使用）
3. 最後に、プログラムでスライドを作成します。
4. 最後に、変更したプレゼンテーションを保存します

Sub CreateSlidesMessage()

Dim NumSlides As Integer
Dim MsgResult As VbMsgBoxResult

' How many slides to create
NumSlides = InputBox("Enter number of slides to create", "Create Slides")

'User confirmation
MsgResult = MsgBox("Powerpoint will create " & NumSlides & " slides. Proceed?", vbApplicationModal, "Create Slides")

'create the slides
If MsgResult = vbOK Then
    For i = 1 To NumSlides
        Set NewSlide = ActivePresentation.Slides.Add(Index:=i + 1, Layout:=ppLayoutBlank)
    Next i
    'Save the Presentation
    ActivePresentation.SaveAs("Your Presentation.pptx")
    MsgBox ("Presentation Saved.")
End If

End Sub

それがお役に立てば幸いです。必要に応じてコメントを残してください。