Buntes Menü
30.04.2009 20:55:56
Otto
ich füge mit nachfolgenden Makro eine Menü ein. Frage ist, kann man die einzelnen Punkte auch farbig machen oder besteht hier nur die Möglichkeit mit dem Icon?
Vielen Dank!
VG
Otto
Sub Menü_Sonstiges()
Dim i As Integer
Dim i_Hilfe As Integer
Dim MenüNeu As CommandBarControl
Dim MB As CommandBarControl
i = Application.CommandBars(1).Controls.Count
i_Hilfe = Application.CommandBars(1).Controls(i).Index
Set MenüNeu = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
before:=i_Hilfe, Temporary:=True)
MenüNeu.Caption = "Sonstiges"
Set MB = MenüNeu.Controls.Add _
(Type:=msoControlButton)
With MB
.Caption = "Formeln einfügen"
.Style = msoButtonCaption
.OnAction = "Formeln_einfügen"
.BeginGroup = True
.FaceId = 11
End With
End Sub