Sub パワーポイントを起動する()
    
    'ThisWorkbook.Pathはこのファイルと同じ場所
    パワポファイル名 = ThisWorkbook.Path & "\サンプルパワーポイント.pptx"
    
    CreateObject("PowerPoint.Application").Presentations.Open (パワポファイル名)

End Sub