编辑:我没有明确表达这一意愿。我正在尝试打开 Visio(工作),然后在我选择的文档中打开一个页面。谢谢
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
但这是它试图重命名活动页面的代码。我希望它选择引号中的页面名称。
Try:
VsApp.ActiveWindow.Page = vsPage
如果这不起作用,请尝试:
VsApp.ActiveWindow.Page = VsApp.Documents.Open(FName).Pages(vsPage)
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)