Ich möchte eine Schaltfläche anlegen allerdings soll diese sich auf einer bereits vorhandenen Symbolleiste befinden. Bisher erzeuge ich beim Aufrufen (per startup) immer eine neue Symbolleiste, was jetzt ziemlich nervt da ich bereits 2 Dateien in meinem Startup-verzeichnis habe die jeweils eine eigene Sybolleiste erzeugen und in Anspruch nehmen!

Private Const mc_CBAR_NAME As String = "FormatTool"
Private Const mc_CBAR_BTN_TAG = "MY_BUTTON"
Public Sub CreateCommandBar()
Dim cBar As CommandBar
Dim cBarButton As CommandBarButton
Application.CustomizationContext = ThisDocument
Set cBar = Application.CommandBars.Add( _
Name:=mc_CBAR_NAME, Temporary:=False)
With cBar
.Visible = True
.Position = msoBarTop
.Protection = msoBarNoCustomize + msoBarNoChangeVisible
End With
Set cBarButton = cBar.Controls.Add(Type:=msoControlButton)
With cBarButton
.Style = msoButtonIconAndCaption
.Caption = "Format-Tool"
.Tag = mc_CBAR_BTN_TAG & "1"
.TooltipText = "FormatTool"
.FaceId = 790
.BeginGroup = True
.OnAction = "LadeMich"

End With

Hat jemand eine Idee was ich an diesem Code ändern muss? danke schonmal im Voraus...