Sub パワーポイントPPTに空白ページを追加する()

    Set パワポ指定 = CreateObject("PowerPoint.Application").ActivePresentation
    
    スライド枚数 = パワポ指定.Slides.Count
    
    Set スライド追加 = パワポ指定.Slides.Add(スライド枚数 + 1, 12) '12が白紙

End Sub