Sub パワポでスライドを選択する()

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

End Sub