Freigeben über

Application.UsableHeight property (Project)

  • Artikel

Ruft die maximale verfügbare Höhe für ein Projektfenster in Punkt. Schreibgeschützter doppelter Wert.

Syntax

Ausdruck. UsableHeight

expression Eine Variable, die ein Application-Objekt darstellt.

Bemerkungen

Die UsableHeight -Eigenschaft entspricht der gesamten Fläche in vertikaler innerhalb des Hauptfensters abzüglich der von dem Menüband, Statusleisten, Bildlaufleisten und der Titelleiste eingenommenen.

Beispiel

Im folgenden Beispiel werden die Fenster aller geöffneten Projekte in das Hauptfenster verschoben.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.