別のVisioインスタンスのウィンドウをアクティブにする

Question

現在、というファイル名という名前の文字列にファイル名が格納されています。文字列に格納されているファイルは現在開いています。問題は、このファイルが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

このような何か試してみてください：、https://msdn.microsoft.com/en-us/library/office/ff766749.aspx

私はVBAでのVisioで幅広く活動していない：私は別のオプションは、これを調べることにあると思い

objVisio.Application.Caption 

それとも

AppActivate "Microsoft Visio" 

を私は本当の答えをここに見ることに興味があります。