Sub パワポを閉じる_ソフト自体も閉じる()
    
    'アクティブなパワポを指定する
    Set パワポ指定 = CreateObject("PowerPoint.Application")
    
    'パワポ全部を閉じる
    パワポ指定.Quit
    
End Sub