Sub 既にパワーポイントが開いているか確認する()
On Error Resume Next 'エラーメッセージ抑制
    
    Set パワポ起動チェック = GetObject(, "Powerpoint.Application")

    If パワポ起動チェック Is Nothing Then
        
        '開いていないので何もしない
        
    Else
        
        MsgBox "他のパワーポイントが開いているようです。"
        End '処理を終了する
        
    End If

On Error GoTo 0 'エラーメッセージ抑制を解除
End Sub