Метод Application.DocSize (Project)
Задает ширину и высоту активного окна.
Синтаксис
выражение. 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 и обратная связь.