Sub パワーポイントでスライドを削除する()

    Set パワポ指定 = CreateObject("PowerPoint.Application").ActivePresentation
    
    ページ数 = 2
    
    Set スライド = パワポ指定.Slides(ページ数)
    
    スライド.Select
    スライド.Delete

End Sub