Hallo Berndi,
beispielsweise so: OptionExplicitPrivateSub Workbook_Open()Dim myCommandBarPopup As CommandBarPopup, myCommandBarButton As CommandBarButton
Set myCommandBarPopup = Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=30002)
Set myCommandBarButton = myCommandBarPopup.Controls.Add(Type:=msoControlButton, Temporary:=True)
With myCommandBarButton
.BeginGroup = True
.Caption = "Drucken in Datei"
.OnAction = "Drucken_in_Datei"
.Style = msoButtonCaption
EndWithEndSubPrivateSub Workbook_BeforeClose(Cancel AsBoolean)Dim myCommandBarPopup As CommandBarPopup
Set myCommandBarPopup = Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=30002)
OnErrorResumeNextDo
Err.Clear
myCommandBarPopup.Controls("Drucken in Datei").Delete
LoopUntil Err.Number <> 0
EndSub
Gruß
Nepumuk
Anzeige
AW: Menueintrag unter 'Datei'
Berndi
Das funktioniert ja einwandfrei !
Kann man den Menüeintrag auch von der Position her verschieben ?
AW: Menueintrag unter 'Datei'
Nepumuk
Hallo Berndi,
die Position bestimmst du mit dem Before - Parameter.
Set myCommandBarButton = myCommandBarPopup.Controls.Add(Type:=msoControlButton, Before:=5, Temporary:=True)
Gruß
Nepumuk