Свойство Application.UsableHeight (Project)

Получает максимальную высоту, доступную для окна проекта в точках. Только для чтения, Double.

Синтаксис

выражение. UsableHeight

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

Примечания

Свойство UsableHeight равно общему размеру вертикального пространства внутри главного окна за вычетом места, занимаемого лентой, строками состояния, панелями прокрутки и строкой заголовка.

Пример

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

Sub FitWindows() 
 
 Dim W As Window ' The Window object used in For Each loop 
 
 For Each W In Application.Windows 
 ' Adjust the height of each window, if necessary. 
 If W.Height > UsableHeight Then 
 W.Height = UsableHeight 
 W.Top = 0 
 ' Adjust the vertical position of each window, if necessary. 
 ElseIf W.Top + W.Height > UsableHeight Then 
 W.Top = UsableHeight - W.Height 
 End If 
 
 ' Adjust the width of each window, if necessary. 
 If W.Width > UsableWidth Then 
 W.Width = UsableWidth 
 W.Left = 0 
 ' Adjust the horizontal position of each window, if necessary. 
 ElseIf W.Left + W.Width > UsableWidth Then 
 W.Left = UsableWidth - W.Width 
 End If 
 Next W 
 
End Sub

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

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