Chris Macro
11-10-2014, 07:06 AM
I have some macro code that will copy/paste Excel Tables to PowerPoint slides. This code work fine when I want to paste as an Enhanced Metafile (enum 2) but when I change it to paste as default (enum 0) the code does not want to paste into PowerPoint. Any thoughts on why this is happening? I have attached my example files to help illustrate this.
'Paste to PowerPoint and position
On Error Resume Next
Set shp = myPresentation.Slides(MySlideArray(x)).Shapes.PasteSpecial(DataType:=2) 'Excel 2007-2010
Set shp = PowerPointApp.ActiveWindow.Selection.ShapeRange 'Excel 2013
On Error GoTo 0
12493
'Paste to PowerPoint and position
On Error Resume Next
Set shp = myPresentation.Slides(MySlideArray(x)).Shapes.PasteSpecial(DataType:=2) 'Excel 2007-2010
Set shp = PowerPointApp.ActiveWindow.Selection.ShapeRange 'Excel 2013
On Error GoTo 0
12493