Метод Application.AppSize (Project)

Задает ширину и высоту главного окна.

Синтаксис

выражение. AppSize( _Width_, _Height_, _Points_ )

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Width	Необязательный	Long	Число, указывающее новую ширину главного окна.
Height	Необязательный	Long	Число, указывающее новую высоту главного окна.
Points	Необязательный	Логический	Значение true, если ширина и высота измеряются в точках. False , если они измеряются в пикселях. Значение по умолчанию — False.

Возвращаемое значение

Boolean

Пример

В следующем примере основное окно Project перемещается в левую половину экрана.

Sub MoveMainWindowToLeftHalf() 
 
    Dim WindowHeight As Long 
     
    ' Remember the height when maximized. 
    Application.WindowState = pjMaximized 
    WindowHeight = Application.Height 
     
    AppSize Width:=UsableWidth / 2, Height:=UsableHeight, Points:=True 
    Application.Left = 0 
    ' Be sure the window uses all the available height. 
    If Application.Height < WindowHeight Then Application.Height = WindowHeight 
     
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.