Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kontextmenü - alle Menüpunkte ausblenden

Kontextmenü - alle Menüpunkte ausblenden
04.02.2004 11:37:21
Peter
Hallo Forum,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kontextmenü - alle Menüpunkte ausblenden
04.02.2004 11:47:52
K.Rola
Hallo,

Sub KonTextMenu()
Dim Ctrl As CommandBarButton
On Error Resume Next
For Each Ctrl In CommandBars("Cell").Controls
Ctrl.Delete
Next
On Error GoTo 0
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

Gruß K.Rola
AW: Danke
04.02.2004 12:02:48
Peter
Werd's gleich ausprobieren.
Peter
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige