После того, как вы создали электронную таблицу, скопируйте нужный диапазон в буфер обмена, затем с помощью объекта PowerPoint:
With oPPTPresentation.Slides(SlideIndex)
.Shapes.PasteSpecial (ppPasteOLEObject)
End With
Или, если вам нужно переместить / изменить размер:
With oPPTPresentation.Slides(SlideIndex)
Set oPPTShape = .Shapes.PasteSpecial(ppPasteOLEObject)(1)
With oPPTShape
End With ' shape
End With ' presentation
Вот и все в VBA. Перевод в .NETshell оставлен читателю в качестве упражнения.