Gruppe
Menue
Problem
Wie kann ich im Zellkontextmenü eine Trennlinie einfügen?
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