Application.DocSize метод (Project)

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

Синтаксис

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

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Width	Необязательный	Long	Число, определяющее новую ширину активного окна.
Height	Необязательный	Long	Число, определяющее новую высоту активного окна.
Points	Необязательный	Логический	Истинно , если Ширина и Высота измеряются в точках. Значение 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 и обратная связь.