问将新幻灯片添加到PPT时，Excel VBA出现错误438

EN

Option Explicit

#Const EARLYBINDING = False

Sub CopyAndLinkAllChartsToExistingPPT()

#If EARLYBINDING Then
  Dim pptApp As PowerPoint.Application
  Dim pptPres As PowerPoint.Presentation
  Dim pptSlide As PowerPoint.Slide

#Else

  Dim pptApp As Object
  Dim pptPres As Object
  Dim pptSlide As Object
  Const ppLayoutTitle = 1

#End If

    Dim workS As Worksheet
    Dim chartS As Excel.ChartObjects
    Dim workS_Count As Integer
    Dim chartS_Count As Integer
    Dim W As Integer
    Dim C As Integer

  'Declaring PPT objects
  Set pptApp = GetObject(, "PowerPoint.Application")
  Set pptPres = pptApp.Presentations.Add(msoTrue)
  Set pptSlide = pptPres.Slides.Add(1, ppLayoutTitle)

  'Declaring Excel objects
  Set workS = ActiveWorkbook.worksheets(1)
  Set chartS = workS.ChartObjects

  'Amount of worksheets and charts for the loops
  workS_Count = ActiveWorkbook.worksheets.Count
  chartS_Count = workS.ChartObjects.Count

    'Nested loop for all the worksheets and charts
For W = 1 To workS_Count
      For C = 1 To chartS_Count

            pptApp.ActivePresentation.Add
            pptApp.ActivePresentation.Slides.Count 1, ppLayoutTitle
            pptApp.ActiveWindow.View.GotoSlide
            pptApp.ActivePresentation.Slides.Count
            Set pptSlide = pptApp.ActivePresentation.Slides(pptApp.ActivePresentation.Slides.Count)

            chartS.Select
            ActiveChart.ChartArea.Copy

            'Pasting chart in PowerPoint slide with a data link
            pptSlide.Shapes.PasteSpecial link:=msoTrue
    Next C
Next W

  ' Clearing the objects
  Set pptApp = Nothing
  Set pptPres = Nothing
  Set pptSlide = Nothing
  Set workS = Nothing
  Set chartS = Nothing

End Sub