Dinamik menu kontrolu

[cagataybaser]

Merhabalar,
Kendi yarattigim dinamik menumde kullandigim kodlar asagidadir.
Benim istedigim ise menude yarattigim bir buttondan bir sonraki islemden sonra ikinci buttonu yaratamiyorum.C,c++ yada java kullananlar bilir, vba da herhangi bir static degiskeni varmi.Boylece menuye yeni butonlar surekli eklenebilir.
Yardimlariniz icin cok tesekkur ederim.
Saygilarimla

Xml Kodu

<dynamicMenu id="dynTabMenu" 
label="Modells"
imageMso="CreateTable"
size="large"
getContent="dynTabMenu_getContent"/>

</group>

Vba kodu

Private Sub dynTabMenu_getContent(control As IRibbonControl, ByRef returnedVal)
Dim strXML As String, strLabel As String, strTag As String
Dim wks As Worksheet
Dim strn As String
Dim lastcolumn As Double
strn = Range("C11").Value
On Error GoTo Fehler
  strXML = "<menu xmlns=""http://schemas.microsoft.com/office/2006/01/customui"">" & vbLf
  
  For Each wks In ThisWorkbook.Worksheets
    strTag = Mask(strn, False)
    strLabel = Mask(strn, True)
    
    If wks.Visible = True Then
      strXML = strXML & "<button id=""" & strn & """" _
                             & " label=""" & strn & """" _
                             & " tag=""" & strn & """" _
                             & " onAction=""gallipolli""/>" & vbLf
    Else
      strXML = strXML & "<button id=""" & strn & """" _
                             & " label=""" & strn & """" _
                             & " tag=""" & strn & """" _
                             & " screentip=""mein kleiner Screentip""" _
                             & " supertip=""Diese Tabelle ist nicht sichtbar!""" _
                             & " imageMso=""StopLeftToRight""" _
                             & " onAction=""gallipolli""/>" & vbLf
    End If
  Next wks
  
  strXML = strXML & "</menu>"
  returnedVal = strXML
Exit Sub
Fehler:
  MsgBox "Fehler in: dynTabMenu_getContent" & vbLf & _
         Err.Description, vbCritical, "Fehler!"
End Sub