问线条图的Powerpoint循环. Active X错误

EN

Sub pptDataChange()

'Define variables of excel
Dim mySheet As Excel.Worksheet

'Define variables to open on PPT
Dim PowerPointApp As PowerPoint.Application
Dim myPresentation As PowerPoint.Presentation
Dim sld As PowerPoint.Slide
Dim shp As PowerPoint.Shape
Dim chrt As Chart

'Copy range from Excel
Set mySheet = ThisWorkbook.Worksheets("Sheet1")

'Create instance of Powerpoint
On Error Resume Next

    'Open Powerpoint with Powerpoint is already opened
    Set PowerPointApp = GetObject(class:="PowerPoint.Application")

    'Clear errors
    Err.Clear

    'If Powerpoint is closed, open Powerpoint
    If PowerPointApp Is Nothing Then
        Set PowerPointApp = CreateObject(class:="PowerPoint.Application")
    End If

    'Handle error if Powerpoint isn't installed or not found
    If Err.Number = 429 Then
        MsgBox ("PowerPoint not found, aborting...")
        Exit Sub
    End If

On Error GoTo 0

'Make Powerpoint visible and active
PowerPointApp.Visible = True
PowerPointApp.Activate

'Open Powerpoint Presentation from PATH and set it as the active
Dim pres As PowerPoint.Presentation
Set pres = PowerPointApp.Presentations.Open("File.pptx")

For Each sld In pres.Slides
    For Each shp In sld.Shapes
       'Iterate through charts and change data of chart using something like If sld Has.Chart Then ...
    Next shp
Next sld

End Sub