如何在PowerPoint VBA中调用COM加载宏内的指定宏？

你之前用Application.Run "AddinName!MacroName"报错的原因很明确：这个语法仅适用于调用PPT/Excel的VBA工程宏，或是.pptam格式的PPT加载宏中的宏，不适用于COM类型的.dll加载宏——COM加载宏是注册到系统的COM组件，本质是一个可实例化的对象，需要通过COM对象的方式调用其公开方法。

以下是几种可行的实现方案：

方案1：通过COMAddIns集合获取已加载的对象调用 #

如果该加载宏是PowerPoint启动时自动加载的，可以直接遍历或通过标识找到已实例化的COM加载宏对象，调用目标方法：

Dim targetAddin As COMAddIn
' 方法A：通过加载宏的ProgID查找（推荐，最稳定）
Set targetAddin = Application.COMAddIns("MyCompany.MyAddin")
' 方法B：通过功能区显示名称查找（如果不知道ProgID）
' For Each targetAddin In Application.COMAddIns
'     If targetAddin.DisplayName = "AddinName" Then Exit For
' Next

If Not targetAddin Is Nothing Then
    ' 调用目标方法MacroName
    targetAddin.Object.MacroName
Else
    MsgBox "目标COM加载宏未加载"
End If

方案2：直接创建COM对象实例调用 #

如果加载宏未自动加载，或者需要独立实例化，可以用CreateObject创建对象后调用：

Dim addinInstance As Object
' 替换为加载宏对应的ProgID
Set addinInstance = CreateObject("MyCompany.MyAddin")
' 调用目标方法
addinInstance.MacroName

关键注意事项 #

• 获取正确的ProgID：ProgID是COM组件的唯一标识，可通过以下方式获取：
  1. 询问开发该加载宏的团队
  2. 在注册表中搜索myaddin.dll，找到对应CLSID下的ProgID键值（路径：HKEY_CLASSES_ROOT\CLSID\{组件CLSID}\ProgID）
• 确认方法可访问性：MacroName必须是该COM对象对外公开的公共方法，内部私有方法无法通过VBA调用
• 权限检查：部分公司内部COM加载宏可能需要管理员权限，或当前用户需具备调用权限
• 加载状态验证：如果用方案1，务必先检查targetAddin是否为Nothing，避免因加载宏未启动导致报错

内容的提问来源于stack exchange，提问作者delart