selbst erstelltes Menü

Bild

Betrifft: selbst erstelltes Menü von: Marco
Geschrieben am: 02.03.2005 12:23:16

Hallo,
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

Bild


Betrifft: AW: selbst erstelltes Menü von: Bert
Geschrieben am: 02.03.2005 12:25:48

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
'=================================
.enabled = False
'=================================
End With


Bild


Betrifft: AW: selbst erstelltes Menü von: Marco
Geschrieben am: 02.03.2005 12:29:13

Hallo Bert,
ja, danke, funktioniert prima.
Grüße/Marco


 Bild

Beiträge aus den Excel-Beispielen zum Thema "selbst erstelltes Menü "