title image


Smiley Horizontale Linie in Kontextmenü
Hallo,



ich lasse das Kontextmenü beim Klick auf irgendeine Zelle erweitern, stark vereinfacht etwa so:



Sub KontextMenueErweitern()

Set cb = Application.CommandBars("Cell").Controls.Add

If fct_Bedingung1 = True Then

With cb

.Caption = "Dies tun?"

.OnAction = "TueDies"

End With

End If

Set cb = Application.CommandBars("Cell").Controls.Add

If fct_Bedingung2 = True Then

With cb

.Caption = "Das tun?"

.OnAction = "TueDas"

End With

End If

End Sub



(fct_BedingungX sind Funktionen; was die tun spielt hier nicht zur Sache)



Ich möchte nun gerne (da es u.U. noch viel mehr Befehle sind, als im Beispiel), dass sich meine selbst hinzugefügten Befehle von den Standardbefehlen abheben.



Wie kriege ich eine horizontale Linie vor meinen ersten Befehl?



mfg



rlx
mfg

Ralf

Der Computer löst Probleme, 
die es ohne ihn nicht gäbe!



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: