Hallo,
gibt es eine Möglichkeit, dass das Auswahlmenü - Bsp siehe unten- nach der Auswahl einer Schaltfläche weiterhin geöffnet bleibt?
Gruß Christof
----
Set objCPop = objCBar.Controls.Add(msoControlPopup)
objCPop.Caption = "Legende"
Set objCBtn = objCPop.Controls.Add(msoControlButton)
Worksheets("Hilfsdaten").Shapes("bild 9.bmp").Copy
With objCBtn
.Style = msoButtonIconAndCaption
.Caption = "Sonst"
.PasteFace
.OnAction = "rot_fuellen"
End With
Set objCBtn = objCPop.Controls.Add(msoControlButton)
Worksheets("Hilfsdaten").Shapes("bild 3.bmp").Copy
With objCBtn
.Style = msoButtonIconAndCaption
.Caption = "BvB"
.PasteFace
.OnAction = "gruen_fuellen"
End With
etc.