selbst erstelltes Menü
02.03.2005 12:23:16
Marco
habe mir soeben sein selbst erstelltes Menü gebastet. Hier der Code
Set oSub = oBar.Controls.Add(msoControlPopup, before:=oBar.Controls.Count + 1)
oSub.Caption = "Tools"
Set oBtn = oSub.Controls.Add
With oBtn
.Caption = "Tool1"
.OnAction = "Tool1"
.Style = msoButtonIconAndCaption
.FaceId = 1763
End With
Set oBtn = oSub.Controls.Add
With oBtn
.Caption = "Tool2"
.OnAction = "Tool2"
.Style = msoButtonIconAndCaption
.FaceId = 418
.BeginGroup = True
End With
Jetzt möchte ich gerne das Untermenü Tool2 deaktiveren, es soll jedoch
noch sichtbar sein. (Schrift soll wechseln dann von schwarz auf hellgrau)
Wer kann mir hierzu einen Tipp geben.
Viele Grüße
Marco