通过

Application.DocSize Method

  • 项目
Project Developer Reference

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 Office Project 2007.

Visual Basic for Applications 
  Sub TileProjectWindowsVertically()

Dim I As Long   ' Index used in For...Next loop

For I = 1 To Application.Windows.Count
    Windows(I).Activate
    <strong class="bterm">DocSize</strong> Width:=UsableWidth / Windows.Count, Height:=UsableHeight, Points:=True
    DocMove XPosition:=(I - 1) * UsableWidth / Windows.Count, YPosition:=0, Points:=True
Next I



End Sub

See Also