如何使用VBA获得visio绘图的窗口，以设置缩放以适合窗口？

Sub SetZoomToFitWindow()
    Dim visioApp As Object
    Dim visioDoc As Object
    Dim visioPage As Object
    Dim visioWindow As Object
    
    ' 获取Visio应用程序对象
    Set visioApp = GetObject(, "Visio.Application")
    
    ' 获取当前活动的文档对象
    Set visioDoc = visioApp.ActiveDocument
    
    ' 获取当前活动的页面对象
    Set visioPage = visioDoc.ActivePage
    
    ' 获取当前活动的窗口对象
    Set visioWindow = visioPage.Application.ActiveWindow
    
    ' 设置缩放以适合窗口
    visioWindow.Zoom = 100 ' 设置为100%缩放
    
    ' 释放对象引用
    Set visioWindow = Nothing
    Set visioPage = Nothing
    Set visioDoc = Nothing
    Set visioApp = Nothing
End Sub