Linie in Eigenem Menü in der Menüleiste einfügen

Bild

Betrifft: Linie in Eigenem Menü in der Menüleiste einfügen
von: Michael
Geschrieben am: 20.04.2005 10:38:02
Hallo
ich habe mir ein Makro gemacht das unteranderem in der Menüleiste ein weiteres Menü anlegt und darin mehrere Optionen auswählbar sind wie kann ich zwischen diese Untermenüpunkte eine Linie einfügen.
Hier der COde für das Menü aber wie lege ich hier zwischen "Create Full TOC" und "Replace @@ Variables" eine Linie an.


Sub Auto_Open()
            
    Set AUMenuBar = CommandBars.ActiveMenuBar
    Set AUMenu = AUMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
    AUMenu.Caption = "AU Tools"
    AUMenu.Tag = "AUTools"
    With AUMenu.Controls _
        .Add(Type:=msoControlButton, ID:=1)
        .Caption = "Create Full TOC"
        .TooltipText = "Create Full TOC"
        .Style = msoButtonIconAndCaption
        .Tag = "menuItemDialogCreateTOC"
        .FaceId = 4387
        .OnAction = "dialogCreateTOC"
        End With
    With AUMenu.Controls _
        .Add(Type:=msoControlButton, ID:=1)
        .Caption = "Replace @@ Variables"
        .TooltipText = "Replace @@ Variables"
        .Style = msoButtonIconAndCaption
        .Tag = "menuItemReplaceVariables"
        .OnAction = "dialogReplaceVariables"
        End With
        
End Sub


Sub Auto_Close()
Dim MIA As CommandBarControl
Set MIA = CommandBars.FindControl(, , "AUTools")
MIA.Delete (True)
End Sub

mfg
Michael
Bild

Betrifft: AW: Linie in Eigenem Menü in der Menüleiste einfügen
von: stefan onken
Geschrieben am: 20.04.2005 10:50:33
hallo Michael,
mit BeginGroup kannst du die Linie einfügen, zB so zwischen Datei und Bearbeiten:
CommandBars(1).Controls(2).BeginGroup = True
Gruß
stefan
Bild

Betrifft: AW: Linie in Eigenem Menü in der Menüleiste einfüg
von: Michael
Geschrieben am: 20.04.2005 11:08:26
Entschuldigung das ich mich falsch ausgedrückt habe. Aber eigentlich wollt ich in dem Menü "AU Tools" eine waagerechte Linie einfügen und nicht wie bei deinem Beispiel zwischen "File" und "Edit".
Bild

Betrifft: AW: Linie in Eigenem Menü in der Menüleiste einfüg
von: Michael
Geschrieben am: 20.04.2005 11:13:05
Ok danke habs jetzt hinbekommen.
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Was macht der VB-Editor im Hintergrund ??"