Icon zu Popup in Menüleiste
14.12.2005 17:23:22
Harald
ich hatte gestern um 11:24 schon mal eine ähnliche Frage gestellt (https://www.herber.de/forum/messages/708257.html) und von Heiko eine sehr gute Antwort bekommen, nun habe ich ein weiteres Problem:
Meine selbst erstellte Menüleiste besteht vorwiegend aus Popup-Feldern (Dim oPopUp As CommandBarPopup), und diese sollen als Icon + Text angezeigt werden. Mit Heikos Code bekomme ich aber immer die Fehlermeldung, dass z. B. die Eigenschaft .type hierfür nicht existiert. Wie kann ich die Popup-Felder als Icon und Text erscheinen lassen?
Hier ist noch einmal der Code von Heiko:
Set element = CommandBars("MP3 Programm").Controls.Add(Type:=msoControlButton)
With element
' Hier legst du fest wie es ausehen soll.
.Style = msoButtonIconAndCaption
' Das ist der ICON
.FaceId = 210
.Caption = "Album "
' Das der TooltipText
.TooltipText = "Sotiert die Daten Liste nach Alben!"
.OnAction = "SotiereAlbum"
End With
M.f.G.
Harald