Sub パワポにテキストボックスを追加する()
    
    Set パワポ指定 = CreateObject("PowerPoint.Application").ActivePresentation
    
    ページ数 = 1
    
    Set スライド = パワポ指定.Slides(1)
    
    スライド.Select 'スライドを選択
    
    'テキストボックスを追加する（Left~Heightで挿入位置を調整）
    スライド.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
    Left:=100, _
    Top:=100, _
    Width:=200, _
    Height:=50). _
    TextFrame.TextRange.Text = "ここに追加したい文字列"

End Sub