Symbolleiste
24.11.2005 13:42:21
Andreas
Folgendes Makro habe ich "zusammengebaut" (teilweise mit
Eurer Hilfe, teilweise aus der Excelhilfe).
Die Symboleistenknöpfe werden nebeneinander angeordnet.
(1)Kann mir jemand sagen was ich tun muß damit die Knöpfe in
der Leiste untereinander angeordnet werden.
(2)Die Position der Leiste, wie kann ich die auf dem Bildschirm festlegen.
Vielen Dank im Voraus für jeden Tipp
Grüße
Andreas
Sub Stahlbetonstützenleiste()
Dim Befehlsleiste As CommandBar
Dim Befehlsleistenknopf As CommandBarButton
Dim Popupsteuerelement As CommandBarPopup
Dim Befehlsleistenname As String
Befehlsleistenname = "Stahlbeton Rechteckstützen"
On Error Resume Next
Application.CommandBars(Befehlsleistenname).Delete
On Error GoTo 0
Set Befehlsleiste = Application.CommandBars.Add(Befehlsleistenname, msoBarTop, False, True)
With Befehlsleiste
.Position = msoBarFloating
.Visible = True
End With
Set Befehlsleistenknopf = Befehlsleiste.Controls.Add(msoControlButton)
With Befehlsleistenknopf
.Caption = "C12/15"
.BeginGroup = True
.FaceId = 0
.Tag = "C12/15"
.OnAction = "X"
.State = 0
.Style = 3
End With
Set Befehlsleistenknopf = Befehlsleiste.Controls.Add(msoControlButton)
With Befehlsleistenknopf
.Caption = "C16/20"
.BeginGroup = True
.FaceId = 0
.Tag = "C16/20"
.OnAction = "X"
.State = 0
.Style = 3
End With
End Sub