2

我想从工作表中的列表中填充自定义 Excel 功能区中的动态菜单。我的xml代码是这样的:

<dynamicMenu id="A" label="Menu A" imageMso="FormatPainter" getContent="GetMenuContent" />

我可以看到菜单。我没有的是 GetMenuContent 回调,但我知道填充菜单的宏应该去哪里?

4

1 回答 1

4

解决了!从这个链接得到答案。

只需将您的 getContent 指令指向此宏:

Sub GetContent(control As IRibbonControl, ByRef returnedVal)
    Dim xml As String

    xml = "<menu xmlns=""http://schemas.microsoft.com/office/2009/07/customui"">" & _
          "<button id=""but1"" imageMso=""Help"" label=""Help"" onAction=""HelpMacro""/>" & _
          "<button id=""but2"" imageMso=""FindDialog"" label=""Find"" onAction=""FindMacro""/>" & _
          "</menu>"

    returnedVal = xml
End Sub

Sub HelpMacro(control As IRibbonControl)
    MsgBox "Help macro"
End Sub

Sub FindMacro(control As IRibbonControl)
    MsgBox "Find macro"
End Sub
于 2016-04-14T15:13:45.913 回答