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ü "