Pop-up-Menü in Menüleiste einfügen

Bild

Betrifft: Pop-up-Menü in Menüleiste einfügen
von: Michael
Geschrieben am: 20.04.2005 11:23:17
Hallo
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

Bild

Betrifft: AW: Pop-up-Menü in Menüleiste einfügen
von: Onken, Stefan
Geschrieben am: 20.04.2005 12:05:12
hallo Michael,
zB so:
Set AuMenuBar = CommandBars.ActiveMenuBar
Set aumenu = AuMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
aumenu.Caption = "AU Tools"
aumenu.Tag = "AUTools"
Set x = aumenu.Controls.Add(Type:=msoControlPopup, Temporary:=True)
x.Caption = "weiteres menu"
With x.Controls _
.Add(Type:=msoControlButton, ID:=1)
.Caption = "Create Full TOC"
.TooltipText = "Create Full TOC"
.Style = msoButtonIconAndCaption
.Tag = "menuItemDialogCreateTOC"
.FaceId = 4387
.OnAction = "dialogCreateTOC"
End With
http://support.microsoft.com/default.aspx?scid=kb;EN-US;830502
Gruß
stefan
Bild

Betrifft: AW: Pop-up-Menü in Menüleiste einfügen
von: Michael
Geschrieben am: 20.04.2005 12:39:10
Ja genau ich danke dir viel mals.
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Bedingungen mit Schleife"