パワーポイントを起動し、Excelデータをコピーする

Option Explicit
 
Private Sub CommandButton1_Click()
    Dim tpp As PowerPoint.Application
    Dim newtpp As Object
    
    'PowerPointのインスタンスを生成
    Set tpp = CreateObject("Powerpoint.Application")
    
    '新規にプレゼンテーションを作成する
    Set newtpp = tpp.Presentations.Add
    newtpp.Slides.Add 1, ppLayoutText
    'PowerPointを表示
    tpp.Visible = True
    
    'PowerPointにタイトルをコピー
    tpp.ActiveWindow.Selection.SlideRange.Shapes(1).Select
    tpp.ActiveWindow.Selection.TextRange.Text = Range("C7")
    
    'PowerPointにテキストをコピー
    tpp.ActiveWindow.Selection.SlideRange.Shapes(2).Select
    tpp.ActiveWindow.Selection.TextRange.Text = Range("C8") & vbCrLf & Range("C9")
    
    MsgBox "パワーポイントを表示しました。"
    '終了処理
    tpp.Quit
    Set newtpp = Nothing
    Set tpp = Nothing
    
End Sub