关于定位文档窗口并调整其大小 （VBA/ActiveX）

“放置文档”窗口

本示例使用 and 属性将活动的“文档”窗口设置为 400 像素宽 x 400 像素高。WidthHeight

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