如何在 PowerPoint VBA 中使用消息和輸入框？

通過評論，我看到了一些關於如何在 PowerPoint 中使用 Visual Basic 輸入和消息框的讀者問題。

在本教程中，我們將提供非常基本的基礎知識，以幫助您在自動創建演示文稿時使用這些功能。

設置開發人員選項卡

首先，我們需要為 PowerPoint 啟用開發人員環境。按照本教程設置您的開發選項卡。

在 PowerPoint 中，轉到開發人員菜單，然後點擊 Visual Basic。

在項目樹中，右鍵單擊您的演示文稿，點擊插入，然後選擇模塊。將創建一個新的 VBA 模塊，這是您編寫代碼的地方。

PowerPoint 中的消息框

消息框是一種自我解釋，它們的目標是向最終用戶顯示一些有用的信息。在您的模塊中編寫以下代碼：

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

按 F5 或運行並查看結果：

消息和輸入框示例

與消息框不同，輸入框用於從用戶那裡獲得反饋。讓我們看看下面的例子。該腳本會自動將新幻燈片插入到演示文稿中。

下面是我們將要實現的：

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

希望這會有所幫助，請隨時根據需要留下評論。