excelからpptにグラフを投稿した後に実行時エラーが発生しました

Question

現在、vptを使用してpptレポートの作成を自動化しています。私はExcelのチャートをコピーしてpptに貼り付ける必要があります。私は正常にExecuteMso "PasteExcelChartSourceFormatting"を使用して、ソースコードの書式設定とブックの埋め込みの間に貼り付けることができるように、グラフを貼り付けることができましたが、コードの位置を変えようとすると、 ppt。 コードを参照してください：オブジェクトの

Sub Update() 

    Dim ppApp As PowerPoint.Application 
    Dim ppPres As PowerPoint.Presentation 
    Dim ppSlide As PowerPoint.Slide 


    Set ppApp = New PowerPoint.Application 

    ppApp.Visible = True 
    ppApp.Activate 

    Set ppPres = ppApp.Presentations.Open("C:\Users\ashah\Documents\Advisory.pptx") 

    ppPres.Slides(1).Shapes(7).Delete 
    Sheet1.ChartObjects("Chart 24").Chart.ChartArea.Copy 
    ppPres.Slides(1).Select 
    DoEvents 

    ppApp.CommandBars.ExecuteMso "PasteExcelChartSourceFormatting" 
    ppApp.CommandBars.ReleaseFocus 
    DoEvents 

    ppPres.Slides(1).Shapes(7).Left = _ 
     (ppPres.PageSetup.SlideWidth/2) - (ppPres.Slides(1).Shapes(7).Width/2) 
    ppPres.Slides(1).Shapes(7).Top = 77 

End Sub 

私は実行時エラーを取得する「--2147188160（80048240）」、メソッド「アイテム」「シェイプ」は失敗しました。デバッグは私のコードの最後の数行をハイライト表示します。

アドバイスをいただければ幸いです！

Answer 1

あなたは、わずかに異なる方法でこれを試すことができます

Sub Update() 
    Dim ppApp As PowerPoint.Application 
    Dim ppPres As PowerPoint.Presentation 
    Dim ppSlide As PowerPoint.Slide 

    Set ppApp = New PowerPoint.Application 

    ppApp.Visible = True 
    ppApp.Activate 

    Set ppPres = ppApp.Presentations.Open("C:\Users\ashah\Documents\Advisory.pptx") 
    Set ppSlide = ppPres.Slides(1) 
    ppSlide.Shapes(7).Delete 

    Sheet1.ChartObjects(1).Chart.ChartArea.Copy 

    ppSlide.Shapes.Paste.Select 

    With ppPres.Windows(1).Selection.ShapeRange 
     .Left = (ppPres.PageSetup.SlideWidth/2) - (.Width/2) 
     .Top = 77 
    End With 

End Sub 

UPDATE： 私は2隻の潜水艦にこれを分割します。あなたは、これはあなたがより多くの状況では、それを使用可能にするために架空の場合は、CopyAndPasteChartサブもう少しを編集でき

Sub Update() 
    Dim ppApp As PowerPoint.Application 
    Dim ppPres As PowerPoint.Presentation 
    Dim ppSlide As PowerPoint.Slide 

    Set ppApp = New PowerPoint.Application 

    ppApp.Visible = True 
    ppApp.Activate 

    Set ppPres = ppApp.presentations.Open("C:\Users\ashah\Documents\Advisory.pptx") 
    Set ppSlide = ppPres.Slides(1) 
    ppSlide.Shapes(7).Delete 

    Call CopyAndPasteChart(ppApp, ppSlide) 

    With ppSlide.Shapes(ppSlide.Shapes.Count) 
     .Left = (ppPres.PageSetup.SlideWidth/2) - (.Width/2) 
     .Top = -77 
    End With 
    ppApp.CommandBars.ReleaseFocus 

End Sub 

---

Sub CopyAndPasteChart(ppApp As PowerPoint.Application, ppSlide As PowerPoint.Slide) 
    Sheet1.ChartObjects(1).Chart.ChartArea.Copy 
    ppApp.CommandBars.ExecuteMso ("PasteExcelChartSourceFormatting") 
End Sub 

を試してみることができます。