Befehlsleiste englisch für eigene Menüs
Thomas
ich wollte meiner Befehlsleiste im Register "Einfügen" einen Befehl anfügen.
Das ganze schlussendlich als Add-In abspeichern.
Nun habe ich festgestellt, dass mein scheinbar die englischen Menüs ansprechen muss,
um dort Befehle zu platzieren.
Weiss jemand, warum ausgerechnet im Menüpunkt "Einfügen" (="Insert") das beiliegende Makro nicht funktioniert?
Dankend grüsst
Thomas
Private Sub Workbook_Open()
' Befehl in Menu: Datei
' File = Datei,
' Edit = Bearbeiten,
' View = Ansicht,
' Insert = Einfügen
' Format = Format
' Tools = Extras
' Data = Daten
' Window = Fenster
' Help = Hilfe
Dim oBtn As CommandBarButton
On Error Resume Next
' Befehl in Menu: Einfügen
Set oBtn = Application.CommandBars("Insert").Controls.Add(Type:=msoControlButton)
With oBtn
' Trennlinie oberhalb
.BeginGroup = True
.OnAction = "Code1"
.Caption = "Einfügen - &Mein Button"
End With
End Sub
Anzeige
