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

定位“文档”窗口

本示例使用 与属性将活动“文档”窗口设置为 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