Ошибка выполнения 91 в коде экспорта диаграмм в PowerPoint

Question

Я пытаюсь экспортировать диаграммы из Excel в PowerPoint, но при выполнении выдает ошибку 91, в которой говорится: «Переменная объекта или переменная блока не установлена»

Я уже провел исследование и не нашел ничего, что могло быПомоги мне.Вот код:

Sub ExportChartstoPowerPoint()
Dim PPApp As Object
Dim chr
Set PPApp = CreateObject("PowerPoint.Application")
PPApp.Presentations.Add
PPApp.ActiveWindow.ViewType = ppViewSlide
For Each chr In Sheets("CPIT Overview").ChartObjects
    PPApp.ActivePresentation.Slides.Add PPApp.ActivePresentation.Slides.Count + 1, ppLayoutBlank
    PPApp.ActiveWindow.View.GotoSlide PPApp.ActivePresentation.Slides.Count
    chr.Select
    ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
    PPApp.ActiveWindow.View.Paste
    PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
    PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
Next chr
PPApp.Visible = True
End Sub

Ошибка в строке ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture