Kui soovite taastada kasutaja ekraanipildi pärast seda, kui makro on akna vaadet muutnud,
mõnikord saate lihtsalt aktiveerida lahtri, mis oli makro käivitamisel aktiivne lahter. See ei ole alati edukas.
Järgmine näite kood taastab akna positsiooni täpselt nii, nagu see oli makro käivitamisel:
Dim aRow nii kaua, aColumn As Integer, aRange As String 'globaalsed muutujad Sub RememberWindowPosition ()' käivitage see enne muudatuste tegemist ActiveWindow aRow = .ScrollRow aColumn = .ScrollColumn End With aRange = Selection.Address End Sub Subtore RestoreWindowPosition () run seda positsiooni taastamiseks aknas Vahemik (aRange). Valige ActiveWindow abil .ScrollRow = aRow .ScrollColumn = aColumn End With End Sub