Sub 新規パワーポイントPPTを開く() Set パワポ = CreateObject("Powerpoint.Application") Set パワポ新規 = パワポ.Presentations.Add End Sub