グラフをパワーポイントに貼り付け

Question

エクセルのグラフをパワーポイントに「元の書式を保持」したままの貼り付けがしたいです。
しかし実行すると図として貼り付けされてしまいます。
「元の書式を保持」したままの貼り付け方法を教えてほしいです。

#Sub PowerPointを立ち上げる()
    Dim ppApp As New PowerPoint.Application
    Dim ppPt As Presentation
    Dim ppSlide As Slide
    Dim ppShape As PowerPoint.Shape
    Dim ws As Worksheet
    Dim test_st As String
    Dim i As Long
    Dim x As Long
    Dim ppPrs As Presentation
    Set ppPrs = ppApp.Presentations.Open(ThisWorkbook.Path & "\グラフ＠.pptx")
    Set ws = ThisWorkbook.Worksheets("A_01")

    'グラフの貼り付け
    'CPU
    For i = 1 To 18

        ws.ChartObjects("グラフ " & i).Chart.Copy 'グラフをコピー
        ppPrs.Slides(i).Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile, Link:=msoFalse 'パワーポイントのコマンドで貼り付け
        If ppApp.ActiveWindow.Selection.Type = ppSelectionNone Or ppApp.ActiveWindow.Selection.Type = ppSelectionSlides Then
            Exit Sub
        End If

            For Each ppShape In ppApp.ActiveWindow.Selection.ShapeRange
            ppShape.LockAspectRatio = msoFalse
                ppShape.Left = Application.CentimetersToPoints(0.8)
                ppShape.Top = Application.CentimetersToPoints(3.7)
                ppShape.Width = Application.CentimetersToPoints(11.875)
                ppShape.Height = Application.CentimetersToPoints(4.6)
            Next ppShape

    Next i
End Sub

Comments

[m.ts10806]

同様の問題と思われる前の質問が未解決のままです。 https://teratail.com/questions/142599 解決してないのであればそちらで対応してください。ついた回答で解決できてない場合、質問は編集できますので適宜追記してください。こちらの質問は削除依頼を出すと良いです