问动态导入代码或向外接程序添加代码

EN

我在一个项目中工作，我已经创建了一个PowerPoint插件。其概念是这将只包含一个用户表单，带有一个列表框。根据用户的选择，其他模块(bas文件)将被添加或导入到演示文稿中，并且代码将被执行。

我不想在插件中包含所有模块，因为根据需求，我可以进行修改，然后将其存储在共享文件夹中。因此，每次用户使用插件时，他们都可以获得更新版本。因此，我不必在每次更改时都重新循环该插件。

我有一个空白模块，我从文本文件导入代码( bas文件中的代码另存为文本)，然后它会运行。

我可以导入bas文件，也可以使用inserFrom文件选项从文本文件导入代码，但问题是它总是添加到当前的演示代码窗口中。但是我想将代码添加到add I窗格中。

我在插件中有一个名为"tempCode“的空白模块，我想在其中更新导入的代码，但我无法这样做。

当我将插件编辑为ppt时，它工作得很好，但当我将ppt转换为插件时，这个概念就不起作用了。

任何想法，我可以添加代码到插件代码窗格，而不是添加到活动的ppt。

代码详细信息：

我有一个用户表单，带有一个列表框。它有3个项目。选项1选项2选项3如果用户选择任何选项，假设是选项2，则选项2的代码将从文本文件导入到工作模块。

和一个命令按钮来运行选定的。

工作模块名称为“Mod_Working”文本文件名称为“C：\Code\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模式下有效，但在转换为addin时不起作用。