Compartir a través de

Propiedad Application.UsableWidth (Project)

  • Artículo

Obtiene el ancho máximo disponible para la ventana de un proyecto en puntos. Double de solo lectura.

Sintaxis

expresión. UsableWidth

expresión Variable que representa un objeto Application.

Comentarios

La propiedad UsableWidth es igual a la cantidad total de espacio horizontal dentro de la ventana principal menos el espacio que ocupan las barras de desplazamiento.

Ejemplo:

En el ejemplo siguiente se mueven las ventanas de cada proyecto abierto dentro de la ventana principal.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.