Application.DocSize Method (Project)

  • Article

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 Microsoft Project 2010.

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