Cómo copiar el rango de celdas como tabla de Excel a PowerPoint - VBA

No puedo encontrar ninguna manera de hacer esto. Lo que tengo ahora es que copia el rango como una imagen:

Dim XLApp As Excel.Application 
Dim PPSlide As Slide 

Set XLApp = GetObject(, "Excel.Application") 
XLApp.Range("A1:B17").Select 
XLApp.Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
PPSlide.Shapes.Paste.Select

esto funciona de maravilla, pero ¿es posible hacer que copie el rango como una tabla en lugar de una imagen?

Respuestas a la pregunta(5)

Su respuesta a la pregunta