Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "selbst erstelltes Menü "
Inhalt einer Arbeitsmappe als Mail senden (ohne die Mappe selbst)