首先,打開PowerPoint 2013並按ALT+F11打開VBA編輯器。在左側的項目瀏覽器窗口中,雙擊“ThisPresentation”打開演示文稿的代碼窗口。
在代碼窗口中,輸入以下代碼:
選項顯式
私有子形狀_Click()
將單擊的形狀調暗為形狀
Set clickedShape = ActiveWindow。選區。形狀範圍(1)
根據所點擊的圖形按鈕的名稱或其他屬性,執行相應的操作。
選擇案例單擊形狀。名字
案例“Button1”的第壹個按鈕
添加代碼以在此顯示相應的內容。
MsgBox“單擊按鈕1“
案例“按鈕2”第二個按鈕
添加代碼以在此顯示相應的內容。
MsgBox“單擊的按鈕2”
添加更多按鈕處理邏輯
結束選擇
末端接頭
在代碼中,我們使用Shape_Click事件處理程序來捕獲單擊圖形按鈕的事件。在事件處理程序中,我們首先獲取被單擊的圖形按鈕,然後使用Select Case語句根據按鈕的名稱或其他屬性執行相應的操作。您可以根據實際情況修改Select Case語句的條件和操作來實現您需要的功能。
請註意,您需要將代碼中的“Button1”和“Button2”替換為您實際使用的圖形按鈕的名稱或其他屬性。
編寫完代碼後,保存並關閉VBA編輯器。然後,在PowerPoint中插入圖形按鈕,並為每個按鈕設置相應的名稱或其他屬性以在代碼中標識它。
當您單擊演示文稿中的圖形按鈕時,將執行相應的代碼,並根據按鈕的名稱或其他屬性顯示相應的內容。
我希望這個例子可以幫助您實現您的需求。如果妳有任何其他問題,請隨時提問。