Как скопировать диапазон ячеек в виде таблицы из Excel в PowerPoint - VBA

Question

Я не могу найти способ сделать это. Теперь я скопировал диапазон в виде изображения:

Dim XLApp As Excel.Application Dim PPSlide As Slide Установить XLApp = GetObject (, "Excel.Application") XLApp.Range ( "A1: B17") Выбрать. XLApp.Selection.CopyPicture Внешний вид: = xlScreen, формат: = xlPicture

PPSlide.Shapes.Paste.Select

это работает как талисман, но можно ли заставить его скопировать диапазон в виде таблицы вместо картинки?

Answer 1

Да, это возможно.Если вы напишите что-то вроде этого:

XLApp.Selection.Copy
PPSlide.Shapes.PasteSpecial ppPasteOLEObject