MS Project自定义功能区按钮触发Automation Error问题求助

针对你遇到的问题，结合MS Project VBA开发的常见坑，整理以下关键修复点：

1. 修正自定义UI XML的命名空间格式 #

MS Project对自定义UI的XML前缀支持存在差异，建议使用标准无前缀的命名空间格式，替换原XML中的mso:前缀：

Private Sub AddTestRibbon()
    Dim customUiXml As String
 
    customUiXml = "<customUI xmlns=""http://schemas.microsoft.com/office/2009/07/customui"">" _
        & "<ribbon><tabs><tab id=""rtpTab"" label=""RTP"" " _
        & "insertBeforeQ=""mso:TabView"">" _
        & "<group id=""group1"" label=""Tools"">" _
        & "<button id=""viewTasksBtn"" label=""View Synchronized Tasks"" size=""large"" " _
        & "imageMso=""GetExternalDataFromText"" onAction=""Macro10"" />" _
        & "</group></tab></tabs></ribbon></customUI>"
 
    ActiveProject.SetCustomUI customUiXml ' 移除多余的括号
End Sub

2. 确保OnAction宏的作用域与签名正确 #

• 将Macro10放在标准模块（而非ThisProject模块）中，并且显式声明为Public：

' 新建标准模块（比如Module1），放入以下代码
Public Sub Macro10(control As IRibbonControl)
    Debug.Print "Clicked"
    MsgBox "按钮触发成功" ' 增加弹窗验证是否执行
End Sub

• 如果必须放在ThisProject模块中，需要在XML的onAction属性中指定模块名：onAction="ThisProject.Macro10"

3. 移除SetCustomUI的冗余括号 #

原代码中ActiveProject.SetCustomUI (customUiXml)的括号会强制将字符串转为Variant类型，可能触发内部自动化错误，直接改为ActiveProject.SetCustomUI customUiXml即可。

4. 优化功能区加载逻辑 #

确保Project_Open事件触发时ActiveProject已完全初始化，可修改事件代码增加延迟：

Private Sub Project_Open(ByVal pj As MSProject.Project)
    On Error GoTo Open_Error
    ' 确保项目加载完成
    DoEvents
    AddTestRibbon
Exit Sub
Open_Error:
    MsgBox "加载功能区失败: " & Err.Description & " (错误码: " & Err.Number & ")"
End Sub

额外排查步骤 #

• 检查MS Project的宏安全设置，确保启用所有宏（文件→选项→信任中心→信任中心设置→宏设置）；
• 关闭其他Office插件，避免冲突；
• 重启MS Project后测试，缓存异常可能导致该错误。

内容的提问来源于stack exchange，提问作者Jared B.