12 Excel aanpassen - Pearson Education

Oefening 12.2 Menu toevoegen via een macro
1 Neem de volgende macro over om een menu toe te voegen:
C Sub VoegEenMenuToe()
Dim mnuMM As Object
MsgBox Application.CommandBars(1).Controls.Count
Set mnuMM = Application.CommandBars(1).Controls.Add _
(Type:=msoControlPopup, before:=1, temporary:=True)
mnuMM.Caption = "Ipaa &Service"
mnuMM.Visible = True
mnuMM.OnAction = "LogInDatabase"
MsgBox Application.CommandBars(1).Controls.Count
End Sub
12 Excel aanpassen
Eerst wordt het aantal menu’s geteld en weergegeven in een messagebox. Dan wordt een menu
toegevoegd vóór het menu Bestand. De menutekst wordt opgegeven met een ampersand voor
een letter die niet in een van de andere menu’s voorkomt. Dit wordt de sneltoets. De macro die
uitgevoerd wordt is LogInDatabase. U kunt een willekeurige macro gebruiken die u gemaakt
hebt. Tot slot wordt het aantal menu’s weer geteld en weergegeven.
Bij menu’s op de menubalk – zoals in dit voorbeeld – wordt normaal gesproken geen handeling
uitgevoerd als we op de menukeuze klikken. In dat geval laat u gewoon de OnAction eigenschap
weg en vult u het menu met items.
2 Deze macro verwijdert een specifiek toegevoegd menu. U noemt het dus bij naam!
C Sub VerwijderEenMenu()
Application.CommandBars(1).Controls("Ipaa &Service").Delete
End Sub
Overigens is het een goede zaak om een menu eerst te verwijderen voordat u het toevoegt.
Bestaat het menu namelijk al en u voegt het (nogmaals) toe, dan zijn er twee! In de procedure
VoegEenMenuToe roept u gewoon eerst de procedure VerWijderEenMenu aan. Probeert u
daarentegen een menu te verwijderen, terwijl het nog niet bestaat, dan levert dat een fout in de
macro op.
3 Deze fout kunt u als volgt voorkomen:
C Sub VerwijderEenMenu()
On Error Resume Next
Application.CommandBars(1).Controls("Ipaa &Service").Delete
On Error Goto 0
End Sub
Voeg deze uitbreiding pas toe als alles foutloos werkt. Met On Error Resume Next zegt u ’Ga
305