Menüleiste
03.07.2006 16:17:09
AndreasB
Das unten stehende Makro erstellt mir eine Menüleiste. Kann mir jemand
bitte einen Tipp geben wie ich das Makro ändern kann, damit mir die
Befehlsleiste laut
https://www.herber.de/bbs/user/34822.xls
erstellt wird.
Schöne Grüße, forza Ghana und vielen Dank
Andreas
Sub Betonbauleiste()
Dim Befehlsleiste As CommandBar
Dim Befehlsleistenknopf As CommandBarButton
Dim Popupsteuerelement As CommandBarPopup
Dim Befehlsleistenname As String
Befehlsleistenname = "Betonbau Vorlagen"
On Error Resume Next
Application.CommandBars(Befehlsleistenname).Delete
On Error GoTo 0
Set Befehlsleiste = Application.CommandBars.Add(Befehlsleistenname, msoBarFloating, False, True)
With Befehlsleiste
.Left = 500
.Visible = True
End With
Set Popupsteuerelement = Befehlsleiste.Controls.Add(msoControlPopup)
With Popupsteuerelement
.Caption = "Tragfähigkeit"
End With
Set Befehlsleistenknopf = Popupsteuerelement.Controls.Add(msoControlButton)
With Befehlsleistenknopf
.Caption = "Biegemindestbewehrung"
.FaceId = 1
.OnAction = "Biegemindestbewehrung"
.State = 0
.Style = 0
End With
Set Befehlsleistenknopf = Popupsteuerelement.Controls.Add(msoControlButton)
With Befehlsleistenknopf
.Caption = "Deckennachweise"
.FaceId = 1
.OnAction = "Deckennachweise"
.State = 0
.Style = 0
End With
Set Befehlsleistenknopf = Popupsteuerelement.Controls.Add(msoControlButton)
With Befehlsleistenknopf
.Caption = "Trägernachweise"
.FaceId = 1
.OnAction = "Trägernachweise"
.State = 0
.Style = 0
End With
Set Befehlsleistenknopf = Popupsteuerelement.Controls.Add(msoControlButton)
With Befehlsleistenknopf
.Caption = "Gitterträger Bauzustand"
.FaceId = 1
.OnAction = "GitterträgerBauzustand"
.State = 0
.Style = 0
End With
End Sub