How to paste & then resize an image

[werafa]

hi, I Have borrowed one of John's magic modules to resize a shape, and tried to marry it with a paste command - end result is paste as enhanced metafile, then set position and size <not>

I need to activate the shape to make it work under the current approach. How can I reliably identify it? or is there a better way?

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

Thanks all.