vbscript dynamicMenu - getContent

Posted 2021-05-21

getContent="CallbackGetContent"

Sub CallbackGetContent(control As IRibbonControl, ByRef XMLString)
    Dim lngDummy    As Long
    Dim strDummy    As String
    Dim strContent  As String
    strDummy = "<menu xmlns=""http://schemas.microsoft"
    strDummy = strDummy & ".com/office/2006/01/customui"">"
        For lngDummy = 0 To 5
            strContent = strContent & _
            "<button id=""MyDynaButton" & lngDummy & _
            """ label =""Dynamic Item" & _
            lngDummy & """/>"
        Next
    strDummy = strDummy & strContent & " </menu>"
    XMLString = strDummy
End Sub