在项目中由宏创建的功能区中的自定义图像

Question

我们在这个文件中有一个宏在FileOpen事件上（在我们的例子中是Project_Open，但是我试图让它有点普遍）是创建一个RibbonXML字符串并将其加载为CustomUI，如下所示：

Function CreateRibbon()
    Dim ribbonXml As String
    ribbonXml = "<customUI ....>
    ....
    ribbonXml = "<mso:button id="customButton" getImage=""GetImage"" ....>
    ....
    ActiveProject.SetCustomUI (ribbonXml)
End Function

在此功能下，我指定了GetImage函数

Public Function GetImage(Ctrl As IRibbonControl) As IPictureDisp // I tried 'As String' as well
    On Error Resume Next
    If Ctrl.ID = "SiemensLogo" Then
        GetImage = "FormRegionMenu"
    Else
        GetImage = "HappyFace"
    End If 'Ctrl.ID?  
End Function 'GetImage

当我打开项目时，它会显示一条错误消息：

Automation error. Exception occured.

任何想法我做错了什么？