Linie in Eigenem Menü in der Menüleiste einfügen
20.04.2005 10:38:02
Michael
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