Kontextmenü - alle Menüpunkte ausblenden
04.02.2004 11:37:21
Peter
wie blende alle Menüpunkte des Kontextmenü, außer den
eigenen hinzugefügten Menüpunkt, aus?
Ich weiß nur wie man welche hinzufügt.
Danke Peter
Sub KonTextMenu()
Dim Ctrl As CommandBarButton
With CommandBars("Cell")
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.BeginGroup = True 'Trennlinie einfügen
.Caption = "Symbole"
.OnAction = "Start"
End With
End With
End Sub
Sub KonTextMenuLoschen()
'stellt wieder das Standardkontextmenü her
CommandBars("Cell").Reset
End Sub
Anzeige