Excel/PP Add-In und MenüButton

[eagle]

Hallo zusammen,

ich habe ein VBA-Excel-Add-In und ein VBA-PP-Add-In geschrieben.
In diesem erstelle ich einen Button welcher das Makro im Add-In startet.
Der Button ist oben in der Simbolliste zu finden.

Nun habe ich aber das Problem, dass diese neue Simbolliste eine neue Zeile anleget anstelle einen freien Platz in einer bereits vorhandenen Zeile ist.

Habe folgenden Code geschreiben.

' Button fuer die Archivierung erstellen
Public Sub CreateBtnArch()
  ' Fehlerbehandlung festlegen
  On Error Resume Next
  
  ' definition der Variablen
  Dim archMenue As CommandBar
  Dim archBtn   As CommandBarButton
  Dim mycontrols As CommandBarControls
  
  ' Test ob Menu bereits vorhanden ist
  Set mycontrols = CommandBars.FindControl(Type:=msoControlButton, Tag:="Archivieren")
  If mycontrols.Count = 0 Then
    ' Menue erstellen
    Set archMenue = CommandBars.Add(Name:="Archivieren", Position:=msoBarTop, temporary:=True)
    archMenue.Position = msoBarMenuBar
    archMenue.Visible = True
    
    ' Button erstellen
    Set archBtn = archMenue.Controls.Add(Type:=msoControlButton)
    archBtn.Style = msoButtonIcon
    archBtn.Caption = "Archivieren"
    archBtn.OnAction = "Archivieren"
    archBtn.BeginGroup = True
    archBtn.Tag = "Archivieren"
    archBtn.FaceId = 588
    
  End If
End Sub

weiss jemand wie ich dies bewerkstelligen kann?

greez eagle