Метод Application.DocSize (Project)

Статья
04/07/2023

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

Синтаксис

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

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

Параметры

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

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

Boolean

Пример

В следующем примере окна открытых проектов отображаются вертикально в главном окне Project.

Sub TileProjectWindowsVertically() 
 
    Dim I As Long   ' Index used in For...Next loop 
     
    For I = 1 To Application.Windows.Count 
        Windows(I).Activate 
        DocSize Width:=UsableWidth / Windows.Count, Height:=UsableHeight, Points:=True 
        DocMove XPosition:=(I - 1) * UsableWidth / Windows.Count, YPosition:=0, Points:=True 
    Next I 
End Sub

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

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

Share via