激活另一个Visio实例的窗口

Question

目前我的文件名存储在名为 filename 的字符串中。存储在字符串中的文件当前是打开的。问题是，此文件有时可能会在另一个Visio实例中打开。

我想激活存储在文件名字符串

中的文件

我当前的方法没有捕获这个 - 下面的代码只检查当前/一个Visio实例中是否存在文件名。

For Each objDoc In objVisio.Documents
  If objDoc.Name = filename Then
     objDoc.activate
 Exit for
  End If

下一步

如何激活此文件以使其前进？

windows(filename & " - Microsoft Visio").activate 

无法正常工作

我试过

Dim objVisio as Visio.Application
Set objVisio = GetObject(filename).Application

不起作用（可能是由于文件名字符串只有文件名而不是整个文件路径）

那里有其他任何蛮力方法吗？

感谢任何帮助！

Answer 1

尝试这样的事情：

objVisio.Application.Caption

或者

AppActivate "Microsoft Visio"

我想另一种选择是：https://msdn.microsoft.com/en-us/library/office/ff766749.aspx

我还没有在VBA中广泛使用Visio，所以我有兴趣在这里看到真正的答案。