Hi all, I have some code that did work in office 2010. I have upgraded to 2013, and have also added some extra shapes to the relevant slide - and the code now fails after the 'with myshape'.

[vba]Sub PasteTable()
'paste excel table as enhanced metafile, then resize to full width
Dim myShape As Object
Set myShape = ActiveWindow.Selection.SlideRange(1).Shapes.PasteSpecial(ppPasteEnhancedMet afile)
With myShape
.LockAspectRatio = True
.Top = 60 'points from top
.Left = 10 'points from left
.Width = 700 'points wide
End With
End Sub[/vba]
myShape appears in the locals window as an object/shaperange, and running a myshape.name returns 'command cannot be applied to a shape range with multiple shapes'.

can anyone spot what I am doing wrong?

thanks
Tim