使用微軟演示文稿軟件PowerPoint 演示幻燈片的過程中，；當用戶選擇該命令時，使用Windows API GetOpenFileName 調用Windows 內置的打開文件對話框，，提供給用戶選擇要打開的文件或程序;在用戶選擇文件或程序后，通過調用Windows APIShellExecute 來打開該文件或程序。

圖1 擴展后的演示快捷菜單

圖2 選擇擴展命令后的“打開文檔或程序” 對話框

3、功能實現

3.1、編寫VBA 宏代碼

在PowerPoint 新建一個演示文稿文件，然后依次選擇菜單“ 工具” — “ 宏” — “ Visual Basic 編輯器” 進入Microsoft Visual Basic 窗口；然后在該窗口下單擊菜單“插入”— “模塊”，在當前工程下添加一個模塊，進入VBA 編輯環境，并在右側的代碼窗口中輸入以下代碼：

具體代碼請見本文附件文檔。

3.2、安裝PowerPoint 加載宏

為了能夠讓本機或其他機器上的所有的演示文件中都可以使用此程序的功能，需要將上述程序保存為PowerPoint 加載宏的格式，然后復制到相應的機器上并啟用該加載宏。下面以PowerPoint 2003 為例說明操作方法。

首先關閉上述的Microsoft Visual Basic 窗口, 返回到Microsoft PowerPoint 窗口；然后依次選擇“文件” — “另存為”，在“另存為” 對話框的“保存類型” 處選擇“PowerPoint加載宏(*.ppa)”，然后指定名字并加以保存(此處取名為： 擴展PPT 的演示功能.ppa)。此時系統一般會自動將該文件保存在形如“X:\Documents and Settings\YYY\Application Data\Microsoft\AddIns “的文件夾中；其中X 為用戶的Windows 系統所在盤(如C：)，YYY 為當前的用戶名(如Administrator)。如果要在其他的計算機上使用該功能，也需要將該ppa 文件復制到相應計算機的類似文件夾。

加載宏保存在正確位置后并不能自動起作用，還必須將它添加到可用的加載宏列表中。具體方法是在PowerPoint 中依次選擇“工具” — “加載宏” — “添加”，在打開的“添加新的PowerPoint 加載宏” 對話框中選擇上述的ppa 文件即可。

4、結語

由于宏病毒已經成為危害Office 程序和文檔的一個主要的病毒類型，因此微軟的Office 程序中默認情況下都對運行宏的安全級設置為“高”： 此時在Visual Basic 編輯器窗口中如果運行宏會被禁止，在安裝加載宏的時候也會出現不能安裝的情況。為解決此類問題，可依次選擇“ 工具” — “ 宏”— “安全性”，在“安全級” 選項卡中將安全級設置為“低”即可。

更多相關閱讀