Menuepunkt löschen
20.09.2002 16:28:26
Davidx
Danke im Vorraus!
Sub MenuErstellen()
Set myMenuBar = CommandBars.ActiveMenuBar
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, temporary:=True)
newMenu.Caption = "Custom"
Set Ctrl1 = newMenu.CommandBar.Controls _
.Add(Type:=msoControlButton, ID:=1)
With Ctrl1
.Caption = "Import"
.TooltipText = "Import"
.Style = msoButtonCaption
End With
End Sub
Anzeige