如何通过VBA切换Excel中嵌入Visio对象的活动页面？

要切换嵌入在Excel中的Visio对象的活动页面，核心是通过OLE对象的Object属性获取内部的Visio文档实例，而非直接操作Excel的OLE对象本身。以下是可行的VBA实现方案：

基础切换代码示例 #

Sub SwitchVisioPage()
    Dim visioOLE As OLEObject
    Dim visioDoc As Visio.Document
    Dim targetPageName As String
    
    ' 替换为需要切换的目标页面名称
    targetPageName = "Strana-3"
    
    ' 获取指定工作表中的Visio嵌入对象
    Set visioOLE = Worksheets("Document").OLEObjects("objekt 4")
    
    ' 激活对象，确保Visio实例处于可操作状态
    visioOLE.Activate
    
    ' 获取嵌入的Visio文档核心实例
    Set visioDoc = visioOLE.Object
    
    ' 切换并激活目标页面
    visioDoc.Pages(targetPageName).Activate
    
    ' 再次激活对象，确保Excel界面刷新显示新页面
    visioOLE.Activate
End Sub

之前尝试失败的原因 #

• Application.ActivePage是Excel对象模型的属性，和Visio的页面体系无关，无法控制Visio页面。
• visioObj.ActiveWindow.Page的逻辑错误：visioObj是Excel的OLEObject对象，并非Visio的Window对象，必须通过Object属性穿透到内部的Visio文档实例才能操作页面。

复选框触发的扩展实现 #

如果要通过复选框触发页面切换，可在复选框的点击事件中调用上述逻辑，根据不同复选框匹配对应页面：

Private Sub CheckBox_Strana1_Click()
    If CheckBox_Strana1.Value = True Then
        Call SwitchVisioTargetPage("Strana-1")
    End If
End Sub

Private Sub CheckBox_Strana2_Click()
    If CheckBox_Strana2.Value = True Then
        Call SwitchVisioTargetPage("Strana-2")
    End If
End Sub

' 通用页面切换函数
Sub SwitchVisioTargetPage(targetPageName As String)
    Dim visioOLE As OLEObject
    Dim visioDoc As Visio.Document
    
    Set visioOLE = Worksheets("Document").OLEObjects("objekt 4")
    visioOLE.Activate
    Set visioDoc = visioOLE.Object
    
    ' 隐藏所有页面（可选，确保仅目标页面显示）
    Dim page As Visio.Page
    For Each page In visioDoc.Pages
        page.PageSheet.CellsU("PageVisible").FormulaU = "FALSE"
    Next page
    
    ' 激活并显示目标页面
    visioDoc.Pages(targetPageName).Activate
    visioDoc.Pages(targetPageName).PageSheet.CellsU("PageVisible").FormulaU = "TRUE"
    
    visioOLE.Activate
End Sub

注意事项 #

• 确保Visio页面名称拼写完全匹配（Visio页面名称区分大小写）。
• 嵌入的Visio对象需处于可编辑状态，未被Excel锁定。
• 若运行时提示“用户定义类型未定义”，需在VBA编辑器中引用Microsoft Visio xx.x Object Library（路径：工具→引用）。

内容的提问来源于stack exchange，提问作者MartinSVK