Активировать окно другого экземпляра 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

Я не работал с Visio в VBA, поэтому мне интересно увидеть истинный ответ здесь.