Sub 開いているパワポをすべて閉じる()
    
    'アクティブなパワポを指定する
    Set パワポ指定 = CreateObject("PowerPoint.Application")
    
    'パワポ全部を閉じる
    パワポ指定.Quit

End Sub