Menüleiste anpassen und ergänzen
03.06.2013 15:55:47
Jackd
mal wieder eine Frage ...
Ich erstelle mir 2 Menüpunkte über dieses Makro
Public Sub Menüleiste()
Dim myCommandBar As CommandBar
Dim myCommandBarButton As CommandBarButton
Const strCmdBar As String = "Meine Addins"
On Error Resume Next
Application.CommandBars(strCmdBar).Delete
On Error GoTo 0
Set myCommandBar = Application.CommandBars.Add(strCmdBar)
myCommandBar.Visible = True
Set myCommandBarButton = myCommandBar.Controls.Add(Type:=msoControlButton, _
before:=myCommandBar.Controls.count + 1, Temporary:=True)
With myCommandBarButton
.BeginGroup = True
.Caption = "Makro1 starten
.FaceId = 283
.OnAction = "Makro1"
.Style = msoButtonIconAndCaption
.TooltipText = "für das aktuelle Blatt"
.Tag = "für Mich"
End With
Set myCommandBarButton = myCommandBar.Controls.Add(Type:=msoControlButton, _
before:=myCommandBar.Controls.count + 1, Temporary:=True)
With myCommandBarButton
.BeginGroup = True
.Caption = "Makro 2 starten"
.FaceId = 283
.OnAction = "Makro2"
.Style = msoButtonIconAndCaption
.TooltipText = "so oder so"
.Tag = " "
End With
End Sub
Frage 1:
Kann ich das Makro so anpassen, dass diese 2 Felder untereinander stehen? Derzeit stehen sie nebeneinander im Menü
Frage 2:
Ich möchte nun eine weitere Schaltfläche hinzufügen. Diese soll aber einen getrennten Abschnitt erhalten (graue Linie)
Das macht wohl angeblich der Begriff "BeginnGroup" aber irgendwie will das nicht so wie ich wohl will
Thanks in advance