Pop-up-Menü in Menüleiste einfügen
20.04.2005 11:23:17
Michael
Ich hab ein Menü "AU Tools" angelegt, darin sind zwei weitere menüpunkte jedoch möchte ich jetzt ncoh weiter Punkte jedoch in einem Extra Menü (Pop-up) haben.
oder anderst gesagt ich möchte in diesem Menü einen weiteren Punkt der 2 weitere Punkte enthält wie wenn ich auf "Format" und dann "Row" geh.
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
AuMenu.Controls(2).BeginGroup = True
End Sub
Sub Auto_Close()
Dim MIA As CommandBarControl
Set MIA = CommandBars.FindControl(, , "AUTools")
MIA.Delete (True)
End Sub