Sub パワポを閉じる_ソフト自体は閉じない()
    
    'アクティブなパワポを指定する
    Set パワポ指定 = CreateObject("PowerPoint.Application").ActivePresentation
    
    '中のパワポだけ閉じる
    パワポ指定.Close
    
End Sub