更改“文档”窗口的位置和大小

控制“图形”窗口

使用“缩放”

更改“文档”窗口的位置和大小

可以使用 Document 对象修改任何“文档”窗口的位置和大小。使用 WindowState 特性可以将“文档”窗口最小化或最大化，还可以查看“文档”窗口的当前状态。

放置“文档”窗口

本例使用 Width 和 Height 特性将活动“文档”窗口设置为宽 400 像素、高 400 像素。

Sub Ch3_SizeDocumentWindow()

ThisDrawing.Width = 400

ThisDrawing.Height = 400

End Sub

将活动“文档”窗口最大化

Sub Ch3_MaximizeDocumentWindow()

ThisDrawing.WindowState = acMax

End Sub

将活动“文档”窗口最小化

Sub Ch3_MinimizeDocumentWindow()

ThisDrawing.WindowState = acMin

End Sub

查看活动“文档”窗口的当前状态

Sub Ch3_CurrentWindowState()

    Dim CurrWindowState As Integer

    Dim msg As String

    CurrWindowState = ThisDrawing.WindowState

    msg = Choose(CurrWindowState, "normal", _

                 "minimized", "maximized")

    MsgBox "The document window is " + msg

End Sub