从 VSTO PowerPoint 功能区调用 VBA AddIn 宏

Question

我在这个问题上被困了几个小时：

我正在用 C# 开发一个 PowerPoint 插件，我想使用另一个插件中的宏，它是一个 PPAM 文件。 PPAM 文件已安装并启用。

在应用程序参考中，我发现我需要使用 Application.Run 方法，但我无法让它工作（什么都没有发生）...这是我的代码：

Globals.ThisAddIn.Application.Run("PPspliT.ppam!PPspliT.PPspliT_main", null);

PPspliT.ppam 是已安装的插件（位于此处：C:\Users\XXXX\AppData\Roaming\Microsoft\AddIns\PPspliT\）

调用PPspliT_main宏的模块名为PPspliT。

我觉得奇怪的另一件事是 Run 需要接受两个参数，即使宏没有任何参数（这就是我将 null 作为第二个参数的原因）。

我还尝试使用以下方式以编程方式安装插件：

String addinPath = @"C:\Users\XXXXX\AppData\Roaming\Microsoft\AddIns\PPspliT";
var macroFilePath = Path.Combine(addinPath, "PPspliT.ppam");
var addins = Globals.ThisAddIn.Application.AddIns.Add(macroFilePath);
if (!(addins.Registered == MsoTriState.msoTrue && addins.Loaded == MsoTriState.msoTrue))
{
  addins.Registered = MsoTriState.msoTrue;
  addins.Loaded = MsoTriState.msoTrue;
}
var app = Globals.ThisAddIn.Application;
string macroToInvoke = string.Format("{0}!{1}", "PPspliT.ppam", "PPspliT.PPspliT_main");
Globals.ThisAddIn.Application.Run(macroToInvoke, null);

感谢您的帮助！ 相思

Answer 1

这件事让我发疯了，但我找到了如何让它工作！这是我所做的（使用这个http://support.microsoft.com/kb/306682：

正如我在问题中解释的那样，我首先以编程方式注册并加载加载项，然后执行以下操作：

    private void RunMacro(object oApp, object[] oRunArgs)
    {
       oApp.GetType().InvokeMember("Run",
       System.Reflection.BindingFlags.Default |
       System.Reflection.BindingFlags.InvokeMethod,
       null, oApp, oRunArgs);
    }

Globals.ThisAddIn.RunMacro(Globals.ThisAddIn.Application , new object[] {"PPspliT_main"});

感谢大家的帮助！

Answer 2

您应该在请求运行之前尝试打开启用演示的宏 (PPAM)（通过 Application.Presentations.Open）。 Application.Run 的 MSDN reference 声明必须加载演示文稿（解释为以前打开过）。

Presentation ppam = Globals.ThisAddIn.Application.Presentations.Open(macroFilePath);
string macroToInvoke = string.Format("{0}!{1}", ppam.Name, "PPspliT.PPspliT_main");
Globals.ThisAddIn.Application.Run(macroToInvoke, null);

Answer 3

刚刚在 VB6 中提取了一些代码，该代码在加载的加载项中调用例程

假设在 oPPTApp 中引用了一个正在运行的 PPT 实例，并且在加载的加载项中有一个 Public 子例程：

Public Sub BlahBlah()
   MsgBox "Hah!  You found me!"
End Sub

这将启动它：

oPPTApp.Run "BlahBlah"

请注意，您无需提供加载项的名称或子例程所在的模块的名称。

同样，这就是它在 VB5/6 或其他 VBA 例程中的工作方式。