我正在創建一個PowerPoint插件的項目。這個概念是隻包含一個用戶表單和一個列表框。根據用戶選擇,其他模塊(bas文件)將被添加或導入到演示文稿中,並且代碼將被執行。將代碼導入或添加到動態加載項
我不想將所有模塊包含在添加中,這取決於需求我可以進行修改,然後可以存儲在共享文件夾中。所以每次用戶使用插件時,他們都可以擁有更新的版本。所以我不必在每次更改時重新加載插件。
我有一個空白模塊,我從一個文本文件(保存爲文本的bas文件中的代碼)導入代碼並運行。
我可以導入bas文件,也可以使用inserFrom文件選項我可以從文本文件導入代碼,但問題是它總是被添加到當前的表示代碼窗口中。但是我想將代碼添加到插件代碼窗格中。
我有一個名爲「tempCode」的插件中的空白模塊,我想更新導入的代碼,但我無法這樣做。
當我編輯插件作爲ppt時,它工作正常,但是當我將ppt轉換爲插件時,該概念不起作用。
任何想法如何將代碼添加到插件代碼窗格而不是添加到活動的ppt。
代碼細節:
我有一個用戶的形式,用一個列表框。 它有3個項目。 選項1 選項2 選項3 如果用戶選擇任何選項,比如選項2,選項2的代碼將從文本文件導入到工作模塊。
和一個命令按鈕來運行選定的。
工作模塊的名稱是「Mod_Working」 文本文件的名稱是「C:\代碼\ Option2.txt」
下面是我使用的代碼:
Sub ImportSelected()
With ActivePresentation.VBProject.VBComponents(「Mod_Working」).CodeModule
.DeleteLines 1, .CountOfLines 'it deletes any existing code
.AddFromFile 「C:\Code\Option2.txt」
End With
End Sub
Code in text file:
Sub Test
Msgbox 「You selected Opt 2」
End sub
Code of Command Button:
Private Sub Cmd_run_Click()
Application.Run 「Mod_Working.Test」
End Sub
此作品在PPT模式,但不能轉換爲插件時使用。
如果您顯示您現有的代碼,建議更改會更容易。但是,將加載項作爲「存根」,然後從共享文件夾加載「真實」加載項可能更容易。這樣它將始終保持最新狀態,並且您還可以管理您可能創建的功能區項目的更改。 (確保將文件夾中的共享加載項標記爲「只讀」) –
您是否已將註冊表項設置爲在Project Explorer中顯示PowerPoint加載項? – ThunderFrame
我正在使用的代碼: Sub ImportSelected() With ActivePresentation.VBProject.VBComponents(「Mod_Working」)。CodeModule .DeleteLines 1,.CountOfLines「它刪除任何現有代碼 .AddFromFile‘C:\代碼\ Option2.txt’ 尾隨着 結束小組 碼文本文件: 次測試 MSGBOX「您選擇了選項2 」 結束子 代碼命令按鈕: 私人小組Cmd_run_Click() Application.Run‘Mod_Working.Test’ 結束子 這個工作在PPT模式,但不是當轉換成插件。蒂姆,你可以請解釋存根概念位更多。 此外,我沒有訪問註冊表,因爲它是我的辦公系統 –