Menüleiste - Untermenü mit VBA

01/03/2008 - 15:48 von Michael Huy | Report spam
Hallo zusammen,

ich habe mit VBA eine Commandbar "MenüleisteNeu" erstellt.
Darin ist ein Menü "Stammdaten.
Dieses Menü enthàlt den Menüpunkt "Lohndaten".
Wie kann ich in die Lohndaten ein Untermenü "Regelarbeitszeit" einfügen?

LG Michael
 

Lesen sie die antworten

#1 Ullrich Schwarz
01/03/2008 - 17:08 | Warnen spam
Hallo Michael,

verwende z.B. die Tag-Eigenschaft und die FindControl-Methode. Ein Beispiel:

Sub a()

With CommandBars(1).Controls.Add(Type:=msoControlPopup)
.Caption = "Stammdaten"
.Tag = "myStammdaten"
End With

With
CommandBars(1).FindControl(Tag:="myStammdaten").Controls.Add(Type:=msoControlPopup)
.Caption = "Lohndaten"
.Tag = "myLohndaten"
End With

With CommandBars(1).FindControl(Tag:="myLohndaten",
recursive:=True).Controls.Add(Type:=msoControlPopup)
.Caption = "Regelarbeitszeit"
.Tag = "myRegelarbeitszeit"
End With

With CommandBars(1).FindControl(Tag:="myLohndaten",
recursive:=True).Controls.Add(Type:=msoControlButton)
.Caption = "Daten 2"
.Tag = "myDaten2"
End With

End Sub


MfG Ullrich
- Excel 2003 -


"Michael Huy" schrieb im Newsbeitrag
news:
Hallo zusammen,

ich habe mit VBA eine Commandbar "MenüleisteNeu" erstellt.
Darin ist ein Menü "Stammdaten.
Dieses Menü enthàlt den Menüpunkt "Lohndaten".
Wie kann ich in die Lohndaten ein Untermenü "Regelarbeitszeit" einfügen?

LG Michael

Ähnliche fragen