Sub エクセルからパワーポイント_パワポPPT_へ文字を貼り付け()

    '挿入したい文字を指定
    挿入文字 = Range("A1").Value
    
    Set パワポ指定 = CreateObject("PowerPoint.Application").ActivePresentation
    
    Set スライド = パワポ指定.Slides(1) '(1)はページ数
    スライド.Select 'スライドを選択
    
    'テキストボックスの名前（"VBA挿入"）を事前に設定しておく
    スライド.Shapes("VBA挿入").TextFrame.TextRange.Text = 挿入文字

End Sub