29. maj 2006 - 13:06Der er
6 kommentarer og 1 løsning
Tilføje menupunkt til eksisterende menu?
Excel 2003 DK
Jeg sidder og roder lidt med at laver menuer i VBA. Jeg har ingen problemer med at lave min egen menu og tilføje menupunkter til den.
Men, hvad nu, hvis jeg vil have tilføjet et menupunkt til en allerede eksisterende menu? Hvordan tilføjer jeg et menupunt til <Formater -> Række> som hedder "Sum række", således at jeg får menuen <Formater - > Række -> Sum Række>
Menuen <Række> har jo allerede en række undermenuer (Autotilpas, Højde, skjul, Vis). Hvordan tilføjer jeg endnu et menupunkt til denne undermenu?
Sub test() 'Commandbar(1)=standard, controls(5)=Formater,Controls(2)=Række Set MenuItem = CommandBars(1).Controls(5).Controls(2).Controls.Add(Type:=msoControlButton)
With MenuItem .Caption = "Markér til sidste celle" .OnAction = "KørEnMakro" End With
Et lidt bedre alternativ, da der kan være flyttet rundt på menuerne.
Sub test() Set mnu = CommandBars(1).FindControl(ID:=30024, recursive:=True) Set MenuItem = mnu.Controls.Add(Type:=msoControlButton) With MenuItem .Caption = "Sum Række" .OnAction = "InsertSumRow" End With End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
