Hallo,
ich erstelle mit dem unten gezeigten Code eine Menüleiste am rechten Bildschirmrand, da ich aber nicht weiß, wie ich die Größe(Breite) der Menüleiste beeinflussen kann, wird die "Caption" von Oben nach Unten geschrieben. Wie schaffe ich es, dass man die "Caption" ordentlich auf eine Zeile bekommt?
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Set MB = CommandBars.Add(Name:=MenüName, MenuBar:=True, Position:=msoBarRight)

'***************************************************************************
Set M1 = MB.Controls.Add(Type:=msoControlButton, Position:=msoBarRight)
With M1
.Caption = "Eintrag 1"
.OnAction = "machwas1"
.Style = msoButtonCaption
End With
Vielen Dank für die Hilfe
Gruß Jörg