Partager via

Propriété Application.UsableWidth (Project)

  • Article

Obtient la largeur maximale disponible pour une fenêtre du projet en points. Type de données Double en lecture seule.

Syntaxe

expression. UsableWidth

expressionUne variable qui représente un objetApplication.

Remarques

La propriété UsableWidth correspond à l’espace horizontal total à l’intérieur de la fenêtre principale, duquel est déduit l’espace occupé par les barres d’outils et les barres de défilement.

Exemple

L’exemple suivant montre comment déplacer à l’intérieur de la fenêtre principale les fenêtres des projets ouverts.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.