２つのスライドショーを実行している状態でアクティブなウインドを切り替えたい

Question

２つのパワーポイントファイル（A,B）を開き
それぞれのファイルからアクティブウインドウを切り替えたいです。

実行中のアプリケーションのプロセスIDを取得して
開いているパワポのウインドウハンドルを切り替えようと思ったのですが、
パワポ自体のプロセスIDはいつしか検出されず、ファイ名ではなくexe単位のようでした。

A、Bそれぞれスライドショーを実行している状態で
AからB、BからAをアクティブに切り替える方法はないでしょうか。。

'WMIにて使用する各種オブジェクトを定義・生成する。
Dim oClassSet
Dim oClass
Dim oLocator
Dim oService
Dim sMesStr

'ローカルコンピュータに接続する。
Set oLocator = CreateObject("WbemScripting.SWbemLocator")
Set oService = oLocator.ConnectServer

'クエリー条件を WQL にて指定する。
Set oClassSet = oService.ExecQuery("Select * From Win32_Process")

'コレクションを解析する。
For Each oClass In oClassSet

sMesStr = sMesStr & oClass.Description & ": " & _
CStr(oClass.ProcessId) & vbCrLf

Next

Debug.Print "実行中アプリケーションに関する情報です。" & vbCrLf & vbCrLf & sMesStr

'使用した各種オブジェクトを後片付けする。
Set oClassSet = Nothing
Set oClass = Nothing
Set oService = Nothing
Set oLocator = Nothing

svchost.exe: 7116
POWERPNT.EXE: 6388
ImeBroker.exe: 2868
WindowsInternal.ComposableShell.Experiences.TextInput.InputApp.exe: 364
dllhost.exe: 1592
Microsoft.Photos.exe: 1596
RuntimeBroker.exe: 6656
SearchProtocolHost.exe: 3556
audiodg.exe: 2204
SearchFilterHost.exe: 1012
notepad.exe: 6196

Comments

[Y.H.]

タグがVBA(PowerPointなどOffice製品のマクロ)になってますが
VBScript(*.vbs)ですか？

[Qoo]

パワポ内のマクロ(VBA)です

Answer 1

２つだけという前提ですが以下で出来ませんかね。
(今手元に環境無いので動作確認できてませんが。。。)

Dim sw As SlideShowWindow
For Each sw In SlideShowWindows
    ' アクティブなプレゼンテーションと異なる場合
    If sw.Presentation.Name <>  ActivePresentation.Name Then
        sw.Activate 'アクティブにする
        Exit For
    End If
Next

Comments

[Qoo]

できました！ありがとうございます！助かりました！

[Qoo]

sw.Presentation.Nameでパワポのファイル名も取れたので２つ以上でも問題なさそうです！
本当にありがとうございました！