unterpunkt
25.06.2007 11:29:13
SteffenS
ich habe mir eine eigene Menüleiste gebaut in der auch PopupMenüs vorhanden sind.
Das Menü erzeuge ich einmal beim laden.
Wie kann ich meine Untermenü um neue Punkte erweitern. Ich möchte also auf ein bestimmtes Untermenü zugreifen.
Möchte dies über ein separates Makro machen
Hier mein code zum Menü:
Public cmbMain As CommandBar
Public cmfPopup_asw As CommandBarPopup 'oberstes Popup
With cmbMain.Controls(cmfPopup_asw.Caption).Controls
Set cmfPopup1 = .Add(Type:=LANGUF.Cells(i, 9).Value, Temporary:=True)
'Sprache abfragen
If ADM.Range("E324").Value = 1 Or ADM.Range("E324").Value = "" Then
'Deutsch einsetzen
cmfPopup1.Caption = LANGUF.Cells(i, 13).Value 'Beschreibung
Else
'Englisch einsetzen
cmfPopup1.Caption = LANGUF.Cells(i, 14).Value 'Beschreibung
End If
cmfPopup1.Style = LANGUF.Cells(i, 10).Value 'Style
cmfPopup1.FaceId = LANGUF.Cells(i, 7).Value 'Symbol
cmfPopup1.OnAction = LANGUF.Cells(i, 8).Value 'Makro
End With
Danke im Voraus
MFG
Steffen Schmerler