Comment copier la plage de cellules sous forme de tableau d'Excel à Powerpoint - VBA

Question

Je ne trouve aucun moyen de le faire. Ce que j'ai maintenant que copier la plage comme une image:

Dim xlApp Comme Excel.Application Dim PPSlide Comme Diaporama Set xlApp = GetObject ("Excel.Application") XLApp.Range ("A1: . B17") Sélectionnez XLApp.Selection.CopyPicture Apparence: = xlScreen, Format: = xlPicture

PPSlide.Shapes.Paste.Select

cela fonctionne comme un charme, mais est-il possible d'obtenir à copier la gamme comme une table au lieu de l'image?

Answer 1

Oui, c'est possible. Si vous écrivez quelque chose comme ceci:

XLApp.Selection.Copy 
PPSlide.Shapes.PasteSpecial ppPasteOLEObject