Symbolleiste erstellen
18.07.2003 16:03:38
Benjamin
mit folgendem Code (gekürzt) erstelle ich eine Symbolleiste am rechten Bildschirmrand.
Soweit ganz prima. Leider gibt der letzte Teil (Width =1) einen Fehler.
("Die Methode Width für das Objekt CommandBar ist fehlgeschlagen")
Eigentlich möchte ich erreichen dass die Leiste zwar vertikal angelegt wird, die Buttons aber alle untereinander angeordnet sind. (Richtung der Beschriftung von links nach rechts, und nicht von oben nach unten)
Kann mir jemand sagen wo mein Fehler ist? Oder ist der Ansatz mit Width =1 komplett falsch?
Vielen Dank im Vorraus
ben
Private Sub Workbook_open()
Dim oBar As CommandBar
Dim oBtn As CommandBarButton
Dim iCounter As Integer
Call DeleteCmdBar
Set oBar = Application.CommandBars.Add( _
Name:="NewToolbar", _
temporary:=True, _
Position:=msoBarRight)
With oBar
.Visible = True
.Top = 93
.Left = 10
.Protection = msoBarNoChangeVisible
End With
Set oBtn = oBar.Controls.Add
With oBtn
.Style = msoButtonCaption
.Caption = "AbsoluteBezüge"
.OnAction = "AbsoluteBezüge"
End With
Set oBtn = oBar.Controls.Add
With oBtn
.Style = msoButtonCaption
.Caption = "AC_Makro"
.OnAction = "AC_Makro"
End With
With oBar
.Width = 1
End With
End Sub