Método Application.DocSize (Project)

Establece el ancho y el alto de la ventana activa.

Sintaxis

expresión. DocSize( _Width_, _Height_, _Points_ )

expresión Variable que representa un objeto Application.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Width	Opcional	Long	Expresión numérica que especifica el nuevo ancho de la ventana activa.
Height	Opcional	Long	Expresión numérica que especifica el nuevo alto de la ventana activa.
Points	Opcional	Boolean	True si Width y Height se miden en puntos. False si se miden en píxeles. El valor predeterminado es False.

Valor devuelto

Boolean

Ejemplo:

En el siguiente ejemplo se organizan en mosaico las ventanas de los proyectos abiertos verticalmente dentro de la ventana principal del proyecto.

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

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.