Het Application object is het top-object uit de hiërarchie. Ieder ander Excel object moet u via dit Application object benaderen. Hieronder zijn enkele voorbeelden opgenomen ; klik op de driehoek om de oplossing te zien!

Schrijf de macro die het Excel-venster omschakelt van normaal naar maximaal en omgekeerd. U kunt de macro eerst opnemen met de recorder en nadien aanpassen.

  Sub voorbeeld1()
    If Application.WindowState = xlNormal Then
        Application.WindowState = xlMaximized
    Else
        Application.WindowState = xlNormal
    End If
  End Sub

Schrijf de functie die de naam van de actieve map, de naam van het actieve werkblad en het adres van de actieve cel teruggeeft (in één tekst).

  Function info_werkboek() As String
    Dim t As String
    t = "Map: " & Application.ActiveWorkbook.Name & vbCrLf
    t = t & "Werkblad: " & ActiveSheet.Name & vbCrLf
    t = t & "Actieve cel: " & ActiveCell.Address
    info_werkboek = t
  End Function

Schrijf een macro die de afbetaling van een lening berekent (met een in te geven kapitaal, looptijd en rentevoet). Gebruik een werkblad-functie.

 Sub voorbeeld3()
    Dim k As Integer, l As Byte, r As Single
    Dim afbetaling As Single
    k = Application.InputBox("Kapitaal:", , 100, , , , , 1)
    l = Application.InputBox("Looptijd:", , 5, , , , , 1)
    r = Application.InputBox("Rentevoet:", , "0.08", , , , , 1)
    afbetaling = Application.WorksheetFunction.Pmt(r, l, k)
    MsgBox "De jaarlijkse afbetaling is: " & afbetaling
 End Sub

Schrijf de macro die de vorm van de cursor verandert naar een zandloper. Vergeet nadien niet de cursor vorm terug te herstellen.

  Sub voorbeeld4()
    Application.Cursor = xlWait
  End Sub

Schrijf de macro die het adres afdrukt van de geselecteerde cel(len). Tracht naderhand ook het probleem op te lossen dat een gebruiker iets anders kan selecteren dan een cel.

Sub voorbeeld6()
    If TypeName(Application.Selection) = "Range" Then
        MsgBox Application.Selection.Address
    End If
End Sub

Schrijf de macro die de "Bestand openen ..." dialoogbox toont, m.a.w. alsof u klikt op het menu Bestand Openen ....

  Sub voorbeeld6()
    Dim fn As Variant
    fn = Application.GetOpenFilename()
    If fn = False Then
        MsgBox "U dient een document te selecteren"
    Else
        MsgBox "U hebt geselecteerd: " & fn
    End If
  End Sub

Het Application object telt vele eigenschappen en methoden. Enkele belangrijke zijn:

• Eigenschappen: ActiveWorkbook, ActiveSheet, ActiveCell, Selection, Sheets, Windows, Workbooks, Worksheets, WorksheetFunction, DefaultFilePath, Width, Height, Left, Top, Screenupdating, UserName, Version, WindowState
• Methoden: Calculate, CheckSpelling, GetOpenFileName, GetSaveasFileName, InputBox, Quit, Undo, Wait