Standard-Button in eigenes Menü
27.01.2005 09:04:06
Kersten
Wie bekomme ich ein Standard-Button (z.B. der Button "Zeilen löschen") in ein selbstgebautes popup-menü. Eine Makroaufzeichnung:
Application.CommandBars("Hlferlein").Controls.Add Type:=msoControlButton, _
ID:=293, Before:=2
kann ich so nicht gebrauchen.
Der Code(ausschnitt) für einen anderen Untermenüpunkt sieht als Beispiel so aus:
Set oCmdBtn = oPopUp.Controls.Add 'Erstellen Untermenuepunkt
With oCmdBtn
.Caption = "Zeilen einfügen"
.OnAction = "Zeilen_einfügen"
.Style = msoButtonIconAndCaption
.FaceId = 3195
.TooltipText = "Fügt Zeilen ab Curserposition. Inhalt wird mitkopiert"
End With
Bei Aufruf der kompletten Menüleiste soll der Standardbutton im Untermenü erscheinen.
Danke
Gruß Kersten