Unter Menue im Pull-Down-Menue Menueleiste
09.02.2009 09:52:00
Horst
Ich habe mir eingen Menuepunkt in meiner Kommandoleiste Gebaut.
--------------------------------------------------------
Sub MeinMenue()
'Setzen des in der Menueleiste der PopUp-Menues
Dim i As Integer
Dim i_hilfe As Integer
Dim MenueVMP As CommandBarControl
Dim KopiereDaten As CommandBarControl
Set MenueVMP = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
Before:=i_hilfe, Temporary:=True)
MenueVMP.Caption = "Mein Menue-Punkt"
Set KopiereDaten = MenueVMP.Controls.Add(Type:=msoControlButton)
With KopiereDaten
.Caption = "Kopiere von nach"
.OnAction = "MenueKopiereVonNach"
.BeginGroup = True
End With
End Sub
------------------------------------------------------------------------------
Jetzt möchte ich Unterpunkte also so etwas wie SubCommandBars bauen.
Statt eine Action im Menue "Kopiere von nach" beim selektieren mit der Maus auszuführen,
Einen Pfeil mit weiteren Unterpunkten anzeigen, die dann wiederum verschiedene Aktionen ausführen.
Im Punkt Kopiere von nach > 1. von Tabelle eins nach zwei
> 2. von Tabelle eins nach drei
usw.
(Analog wie zum beispiel im Excel Muenuepunkt: Blatt > Umbenennen
> Ausblenden
Wie baue ich das denn in Mein Menue mit ein?
Gruss
Horst