在Visio中select活动页面

编辑：我没有这个意思..我试图打开Visio（工作），然后在我select的文档中打开一个页面。 谢谢

Dim FName As String Dim VsApp As Object On Error Resume Next Set VsApp = GetObject(, "Visio.Application") If VsApp Is Nothing Then Set VsApp = CreateObject("Visio.Application") If VsApp Is Nothing Then MsgBox "Can't connect to Visio" Exit Sub End If End If On Error GoTo 0 FName = "C:\myfile.vsd" If Not Intersect(Target, Range("c2")) Is Nothing Then VsApp.Documents.Open FName VsAppPage = "mypage" Cancel = True ElseIf Not Intersect(Target, Range("c4")) Is Nothing Then VsApp.Documents.Open FName vsPage = "mypage2" VsApp.ActivePage = vsPage Cancel = True End if 

但是这是它试图重命名活动页面的代码。 我希望它在引号中select页面名称。

Answer 1

尝试：

 VsApp.ActiveWindow.Page = vsPage 

如果这不起作用，请尝试：

 VsApp.ActiveWindow.Page = VsApp.Documents.Open(FName).Pages(vsPage)