на кнопці Зупинити запис на панелі інструментів (або виберіть Сервіс-Макрос - Зупинити запис).
Excel припиняє записувати ваші дії.
Щоб переглянути макрос, запустіть VBE (найпростіше натиснути ) і знайдіть проект в вікні Project Explorer. Клацніть на вузлі Modules, щоб розгорнути його. Потім клацніть на елементі Module 1. щоб відобразити вікно коду (якщо в проекті вже був присутній модуль Module1, новий макрос буде знаходитися в модулі Module2). Код, створений однією командою, представлений в лістингу 1. Якщо ви використовуєте НЕ Excel 2002, а іншу версію, текст програми може трохи відрізнятися. br/>
Лістинг 1 . Макрос зміни орієнтації сторінки на альбомну
Sub Макрос1 ()
'Макрос1 Макрос
1 Макрос записаний 19.08.2003
With ActiveSheet.PageSetup
. PrintTitleRows = "" p>. PrintTitleColumns = "" p> End With
ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup. LeftHeader = "" . CenterHeader = "". RightHeader = "n. LeftFooter =" " . CenterFooter = ". RightFooter =" "
. LeftMargin = Application JInchesToPoints (0. 787401575). RightMargin = Application.InchesToPoints (0.787401575). TopMargin = Application.InchesToPoints (0.984251969) . ButtonMargin = Application.InchesToPoints (0.984251969). HeaderMargin = Application. InchesToPoints (0.5). FooterMargin = Applicatior.InchesToPoints (0.5). PrintHeadings = False. PrintGridlines = False. PrintComments = xlPrintNoComments • PrintQuality = 1200 • CenterHorizontally = False. Center-Vertically = False. Orientation - xlLandscape. Draft = False. PaperSize • xlPaperA4. FirstPageNumber - xlAutoma tic. Order = xlDownThenOver . BlackAndWhite = False
Zoom = 100
. PrintErrors = xlPrintErrorsDisplayed
End With
End Sub
Можливо, вас здивує кількість коду, генерованого всього лише однією командою (особливо якщо ви записуєте макрос вперше). Попри те, що ви змінили тільки одну просту настройку в діалоговому вікні Параметри сторінки. Excel генерує код. задає всі параметри в цьому діалоговому вікні.
Таким чином, найчастіше програма, отримана під час запису макросу, надлишкова. Якщо ви хочете, щоб макрос всього лише змінював орієнтацію сторінки на альбомну, то можна значно спростити макрос, видаливши непотрібний код. Це полегшить сприйняття макросу і прискорить його виконання, оскільки позбавить його від зайвих операцій. Спростити макрос ви вправі до такого вигляду:
Sub Makrocl
With ActiveSheet.PageSetup
. Orientation = xl Landscape
End With End Sub
Ми видалили весь код, крім рядка, що змінює властивість Orientation. Насправді даний макрос можна спростити ще більше, так як конструкція With-End не обов'язкова при зміні тільки однієї властивості.
Sub Makrocl
ActiveSheet.PageSetup.Orientation = XlLandscape
End Sub
У даному прикладі макрос змінює властивість Orienation об'єкта PageSetup активного аркуша. Відзначимо, що xlLandscape - це вбудована константа, яка має значення 2. Тому наступний макрос працює як і попередній Makrocl:
Sub Makroc 1
ActiveSheet.PageSetup.Orientation = 2
End Sub
Подібна процедура вводиться безпосередньо в модуль VBA. але для цього необхідно знати які об `єкти, властивості і методи потрібно використовувати. Очевидно швидше записати макрос. Крім того, даний приклад продемонстрував наявність у об'єкта PageSetup властивість Orientation. br/>
1.2.1 Про об'єкти та колекціях
В
Працюючи з кодом VBA в Excel, необхідно чітко розуміти призначення об'єктів і об'єктної моделі Excel. Доцільніше розглядати об'єкти з точки зору ієрархічної структури.
Ієрархія об'єктів
На вершині об'єктної моделі знаходяться об'єкт Application - в даному випадку Excel. Але якщо ви програмуєте в VBA, запускаючи VBE в Microsoft Word, то об'єктом Application виступатиме Word. p> Об'єкт Application (Тобто Excel) містить інші об'єкти. Нижче наведено кілька прикладів об'єктів, які знаходяться в об'єкті Application:
Workbooks (колекція всіх об'єктів Workbook - робочих книг);
Windows (колекція всіх об'єктів window - вікон);
Addlns (колекція всіх об'єктів Addln - надбудов). p> Деякі об'єкти можуть містити інші об'єкти. Наприклад, колекція Workbooks складається з усіх відкритих об'єктів Workbook, а об'єкт Workbook включає інші об'єкти, деякі з яких представлені нижче:
Worksheets (колекція об'єктів Worksheet - робочих аркушів);
Charts (колекція об'єктів Chart - діаграм);
Names (колекція об'єктів Name - імен).
Кожен з цих об'єктів, у свою чергу, може містити інші об&#...
