Application.DocSize Method (Project)
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