Свойства Top, Left, Height, Width, UsableWidth, WindowState

Сойство	Описание
Top (R/W Double)	отступ окна приложения сверху
Left (R/W Double)	отступ окна приложения сверху
Height (R/W Double)	высота окна приложения
Width (R/W Double)	ширина окна приложения
UsableWidth	максимально возможная ширина окна приложения в пунктах
WindowState	позволяет максимизировать, минимизировать или установить нормальный размер окна при помощи констант MS Excel

Пример

Процедура изменяет характеристики окна приложения.

Sub property_app() With Application .WindowState = xlNormal 'установка обычных размеров окна .Top = 10 .Left = 10 .Height = 200 .Width = Application.UsableWidth 'установка максимально возможной ширины окна End With End Sub

Нормальный размер окна устанавливается константой xlNormal. Окно несколько смещено вправо-вниз.

Свойство Visible (r/w Boolean)

Это свойство позволяет скрывать или показывать окно приложения. Свойство доступно для многих объектов, например, для объектов формы.

Пример

Sub property_visible() If Application.Visible = False Then Application.Visible = True ‘окно видно Else Application.Visible = False ‘окно не видно End If End Sub

Процедура делает видимым окно приложения, если оно не видно или скрывает его, если окно высвечено.

Другие свойства объекта Application

Свойства	Описание	Примеры операторов
Calculation (R/W)	Возвращает или устанавливает параметры вычислений. Задается константами MS Excel	Application.Calculation=xlCalculateManual задает ручной пересчет Application.CalculateBeforeSave=True задает автоматический пересчет перед сохранением файла
Path (R/O String)	Возвращает полный путь к объекту	MsgBox "Путь к приложению MS Excel " & Application.Path высвечивает путь к программе MS Excel
SheetsInNewWorkbook (R/W Long)	Возвращает или устанавливает количество рабочих листов во вновь создаваемой рабочей книге	MsgBox "В новой рабочей книге " & Application.SheetsInNewWorkbook & " рабочих листов" высветит количество листов во вновь создаваемой рабочей книге
ThisWorkbook	Возвращает объект Workbook – рабочую книгу, в которой находится выполняемая процедура. Свойство ActiveWorkbook в отличие от свойства Workbook позволяет получить доступ к активной рабочей книге	ThisWorkbook.Close SaveChanges:=False закрывает рабочую книгу, содержащую исполняемый код ThisWorkbook.FullName возвращает полный путь к рабочей книге, содержащай исполняемый код For Each w In Workbooks If w.Name <> ThisWorkbook.Name Then w.Close savechanges:=True End If Next w закрывает с сохранением изменений все открытые рабочие книги за исключением той, в которой находится исполняемая процедура
WorksheetFunction	Возвращает одноименный объект-контейнер функций рабочего листа	MsgBox "Десятичный логарифм 10^6 равен " & WorksheetFunction.Log10(10^6) высвечивает 6

Важно

• Вызов функции рабочего листа производится со ссылкой на контейнер WorksheetFunction или на объект Application.

• Названия функции VBA и функции рабочего листа, выполняющих одинаковые действия, могут не совпадать, например, функция Instr и функция Find.