Menu toevoegen via een marco

[jan2007]

Geacht forum,

Ik wil een menu toevoegen via een macro. Het menu heeft de naam "Calculeren" en heeft 3 sub-onderdelen, te weten tekst1, tekst2 en tekst3 waaraan macro's moeten worden gekoppeld. Het toevoegen van het extra menu heb ik als volgt geprogrameerd:

Dim ExtraMenu As Object

Set ExtraMenu = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:= _
msoControlPopup, Before:=11, Temporary:=True)
ExtraMenu.Caption = "Calculeren"
ExtraMenu.Visible = True

End Sub


Mij vraag is, hoe programeer ik nu de sub-onderdelen tekst1, tekst 2 en tekst3?

mvrgr.

Jan2007

 

[jan2007]

Geacht forum,

Ik wil een menu toevoegen via een macro. Het menu heeft de naam "Calculeren" en heeft 3 sub-onderdelen, te weten knop1, knop2 en knop3 waaraan macro's moeten worden gekoppeld. Het toevoegen van het extra menu heb ik als volgt geprogrameerd:

Dim ExtraMenu As Object

Set ExtraMenu = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:= _
msoControlPopup, Before:=11, Temporary:=True)
ExtraMenu.Caption = "Calculeren"
ExtraMenu.Visible = True

End Sub


Mij vraag is, hoe programeer ik nu de sub-onderdelen tekst1, tekst 2 en tekst3?

mvrgr.

Jan2007

Ik was iets te voorbarig met mijn vraag, want het blijkt dat ik het zelf kon oplossen:

Sub MenuToevoegen()

Dim ExtraMenu As Object
Dim Knop1 As Object
Dim Knop2 As Object
Dim Knop3 As Object

Set ExtraMenu = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:= _
msoControlPopup, Before:=11, Temporary:=True)
ExtraMenu.Caption = "Calculeren"
ExtraMenu.Visible = True
ExtraMenu.BeginGroup = True

Set Knop1 = ExtraMenu.Controls.Add(Type:=msoControlButton, Id:=2949)
Knop1.Caption = "&Maken uittrekstaat"
Knop1.Visible = True
Knop1.OnAction = "Maken_Uittrekstaat"

Set Knop2 = ExtraMenu.Controls.Add(Type:=msoControlButton, Id:=2949)
Knop2.Caption = "Invoeren &bewerkingen"
Knop2.Visible = True
Knop2.OnAction = "Bewerkingen_invoeren"

Set Knop3 = ExtraMenu.Controls.Add(Type:=msoControlButton, Id:=2949)
Knop3.Caption = "Verzamelen en &prijzen"
Knop3.Visible = True
Knop3.OnAction = "Verzamelen_Prijzen"


End Sub

mvrgr

jan2007

 

[Axel Hagg]

> Menu toevoegen via een marco

Dag Jan,

Ik was tot de volgende oplossing gekomen. Open MenuBalk.xls

Gegroet,

Axel

 

[jan2007]

Dag Jan,

Ik was tot de volgende oplossing gekomen. Open MenuBalk.xls

Gegroet,

Axel

Dag Axel,

Dank voor je oplossing. Ik denk (met mijn bescheiden kennis) dat de oplossingen elkaar niet veel ontlopen.

mvrgr

Jan2007