VBA,エクセルのセル範囲をパワーポイントに画像として貼り付けする

Question

実現したいこと

VBAを用いてエクセルのセル範囲をパワーポイントに画像として貼り付け

発生している問題

コードのPasteSpecialのところでメソッドまたはデータメンバーが存在しませんというエラーが発生してしまいます。

試したこと

データが大きいのでPasteSpecialの前に待ち時間を作るといいとかいてあったので以下のコードを追加しました。

Application.Wait Now() + TimeSerial(0, 0, 1)

ソースコード

 Dim ppApp As New PowerPoint.Application
    Dim ppPt As Presentation
    Dim ppShape As PowerPoint.Shape
    Dim ppSlide As Slide
    
    Dim ws1 As Worksheet
    Set ws1 = ActiveSheet
    ws1.Range("JP316:JY316").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    
    Set ppPt = ppApp.Presentations("プレゼンテーション1.pptx")
    Set ppSlide = ppPt.Slides(2)
    Application.Wait Now() + TimeSerial(0, 0, 1)
    ppPt.Slides(2).PasteSpecial DataType:=ppPasteEnhancedMetafile
        Set ppShape = ppSlide.Shapes(ppSlide.Shapes.Count)
        '上位置
        ppShape.Top = Application.CentimetersToPoints(1)
        '左位置
        ppShape.Left = Application.CentimetersToPoints(1)
        '縦横比を固定
        ppShape.LockAspectRatio = msoTrue
        '横幅
        ppShape.Width = Application.CentimetersToPoints(30)
        Application.CutCopyMode = False

Comments

[1T2R3M4]

調べたこと、試したこと、デバッグした結果等を追記していただけませんか。

[tirsujmn]

追記いたしました。情報不足ですみませんでした。

Answer 1

以下ですが、

ppPt.Slides(2).PasteSpecial DataType:=ppPasteEnhancedMetafile

次のようにShapesが必要では？

ppPt.Slides(2).Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile

Comments

[tirsujmn]

これで解決しました！
ありがとうございます！