How to paste & then resize an image

[Cosmo]

The returned value of PasteSpecial is the shaperange which is pasted, so you can use that directly:

Sub PasteTable()
Dim myShape As Object
     'paste excel table as enhanced metafile, then resize to full width
Set myShape = ActiveWindow.Selection.SlideRange(1).Shapes.PasteSpecial(ppPasteEnhancedMetafile)
    With myShape
   .LockAspectRatio = True
   .Top = 70 'points from top
   .Left = 10 'points from left
   .Width = 700 'points wide
    End With
End Sub