Halli hallo zusammen,
mittels
Dim cmdbar As CommandBar
On Error Resume Next
Application.CommandBars("mycommandbarleft").Delete
On Error GoTo 0
Set cmdbar = Application.CommandBars.Add(Name:="mycommandbarleft", Position:=msoBarTop, temporary:=True)
Application.CommandBars("mycommandbarleft").Height = 50
baue ich mir eine Commandbar, die ich mir mit 8 Elementen bestücke,
welche auf meinem 17Zöller auch fein fein angezeigt werden, aber auf
den 15Zoll Mäusekinos der armen User dann eben nur bis zum sechsten.
Ich versuche also irgendwie einen Zeilenumbruch hinzubekommen oder
eben eine mehrzeilige Commandbar. Doch mit dem .Height scheint das
bei mir nicht so zu klappen. Jedenfalls schmeißt er mir immer eine
Fehlermeldung um die Ohren.
Wie also bekommen ich es hin, daß die Nutzer zur Not auch auf einem
12Zöller alle Bedienelemente sehen können ?
Viele Grüße
R.Schmitt