Eigenes Menue Untermenuepunkt erstellen?
11.06.2004 09:59:57
Nike
mit dem angehaengten Fetzen bau ich mir ein Menue,
wie kann ich darin ein Untermenue aufbauen?
z.B.
Menu
Untermenue1
Eintrag 1
Eintrag 2
Untermenue2
Eintrag 3
Eintrag 4
Nicht zu verwechseln mit dem Questrich (.Begingroup=true)
Tips/Links waeren nett.
Bye
Nike
Sub CreateMenu()
Dim objPopUp As CommandBarPopup
Dim objBtn As CommandBarButton
With Application.CommandBars("Worksheet Menu Bar")
On Error Resume Next
.Controls("Analysis").Delete
On Error GoTo 0
Set objPopUp = .Controls.Add( _
Type:=msoControlPopup, _
before:=.Controls.Count, _
temporary:=True)
End With
objPopUp.Caption = "&Analysis"
Set objBtn = objPopUp.Controls.Add
With objBtn
.Caption = "&Buttonblatt"
.OnAction = "ButtonSheet"
.Style = msoButtonCaption
End With
End Sub