Hintergrundfarbe für Popup-Menü
17.10.2002 16:34:12
Norbert
gibt es eine Möglichkeit, die Hintergrundfarbe eines eigenen Menü-Popup in der Standard-Menü-Leiste zu ändern ?
Mein beigefügter Versuch führt nicht zum gewünschten Ergebnis.
Besten Dank vorab,
Norbert
in "Diese Arbeitsmappe":
Private Sub Workbook_Open()
On Error Resume Next
Set usrMenü = Application.CommandBars("Standard").Controls. _
Add(Type:=msoControlPopup)
usrMenü.Caption = "&KMS"
usrMenü.BackColor = RGB(255, 255, 0)
Set item1 = usrMenü.Controls.Add(Type:=msoControlButton, ID:=1)
item1.Caption = "&UniqueID"
item1.OnAction = "GetUID"
item1.Style = msoButtonCaption
Set item2 = usrMenü.Controls.Add(Type:=msoControlButton, ID:=1)
item2.Caption = "&Processes"
item2.OnAction = ""
item2.Style = msoButtonCaption
End Sub