Application.DocSize method (Project)

Article
09/13/2021

Sets the width and height of the active window.

Syntax

expression. DocSize( _Width_, _Height_, _Points_ )

expression A variable that represents an Application object.

Parameters

Name	Required/Optional	Data type	Description
Width	Optional	Long	A number that specifies the new width of the active window.
Height	Optional	Long	A number that specifies the new height of the active window.
Points	Optional	Boolean	True if Width and Height are measured in points. False if they are measured in pixels. The default value is False.

Return value

Boolean

Example

The following example tiles the windows of open projects vertically within the main window of Project.

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

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

Share via