Excel table paste special EMF to PPT, need some help

[riuster]

Im trying to execute a simple copy and paste to PPT from EXCEL, open a ppt file then just take the copy of the table to an existing PPT file. im stuck at one are, doesnt paste. Can anyone help, using ms office 365

Sub PasteEXCELtoPPT()

Dim pptApp As Object
Dim pptPresentation As Object
Dim pptSlide As Object
Dim pptShape As Object
Dim excelRange As Range

Set excelRange = ThisWorkbook.Sheets("Dashboard").Range("A4:R25")

On Error Resume Next
Set pptApp = GetObject(, "PowerPoint.Application")
On Error GoTo 0

If pptApp Is Nothing Then
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True
End If

Set pptPresentation = pptApp.Presentations.Add

excelRange.Copy

'IT BREAKS HERE

pptSlide.Shapes.PasteSpecial ppPasteEnhancedMetafile

end sub


it doesnt paste

Thank you for your help and insight

[Artik]

Missing in your code was the addition of a slide to the presentation.

When you apply late binding to an application you must take care to define the constants that are needed to perform some actions. That's why I added definitions of two constants in the code, which will be used later in the procedure.

Please Login or Register  to view this content.

Artik

[riuster]

thank you!!!