title image


Smiley Re: Menüleiste mit Controlpopups: wie Controlbutton hinzufügen?
Servus Max,



ich fürchte, das übersteigt meinen Horizont.



Hier das Makro, das mir die Menüleiste bastelt.

Unter Punkt "Charlie" sollen jetzt mehrere ControlButtons hinzugefügt werden und ich blicks nicht.



Sub HauptMenue_erzeugen()



On Error Resume Next

Application.CommandBars("Hauptmenü").Delete



Set NeuesMenue = CommandBars.Add(Name:="Hauptmenü", Temporary:=True)



With NeuesMenue

.Position = msoBarTop

.Visible = True

End With



Set Pop1 = NeuesMenue.Controls.Add(Type:=msoControlPopup)

Pop1.Caption = " Numero Uno "



Set St = Pop1.Controls.Add(Type:=msoControlButton)

With St

.Caption = " Alpha "

.FaceId = 18

.Style = msoButtonIconAndCaption

.OnAction = "Alpha"

End With



Set St = Pop1.Controls.Add(Type:=msoControlButton)

With St

.Caption = " Bravo "

.FaceId = 23

.Style = msoButtonIconAndCaption

.OnAction = "Bravo"

End With



Set St = Pop1.Controls.Add(Type:=msoControlPopup)

With St

.Caption = " Charlie"

End With



End Sub


Grüße, Franken-Maddin

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: