Копирование таблицы из Excel в PowerPoint с использованием VBA

Question

Я получаю сообщение об ошибке

"Переменная объекта или переменная блока не установлена"

Похоже, ошибка с
PPSlide.Shapes.PasteSpecial DataType:=ppPasteOLEObject, Link:=msoFalse

Sub Range()
    Dim XLApp As Excel.Application
    Dim PPSlide As Slide

    Set XLApp = GetObject(, "Excel.Application")
    XLApp.Range("A1:C12").Copy
    PPSlide.Shapes.PasteSpecial DataType:=ppPasteOLEObject, Link:=msoFalse
End Sub

- Обновлено

Sub Tabletoppt()
Dim XLApp As Excel.Application
Dim PPSlide As Slide

Set mySlide = myPresentation.Slides.Add(1, 11)
Set XLApp = GetObject(, "Excel.Application")
XLApp.Range("A1:C12").Copy
PPSlide.Shapes.PasteSpecial DataType:=ppPasteOLEObject, Link:=msoFalse

End Sub

Я получаю сообщение об ошибке «Требуется объект»