Gruppe
Menue
Bereich
Context
Thema
Trennlinie in Kontextmenü einfügen
Problem
Wie kann ich im Zellkontextmenü eine Trennlinie einfügen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
ClassModule: Tabelle1
Private Sub CommandButton1_Click()
Call Trennlinie
End Sub
StandardModule: basMain
Sub Trennlinie()
With CommandBars("Cell")
.Controls(.Controls.Count - 1).BeginGroup = True
End With
End Sub
Sub Zurueck()
With CommandBars("Cell")
.Controls(.Controls.Count - 1).BeginGroup = False
End With
End Sub