Powerpoint macro to paste and format doesnt work anymore

I had another computer that I had this working on, but now I have excel 2013 professional plus and it MIGHT be the issue, although I doubt it.

Anyways can someone tell me what is wrong with my code:

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(DataType:=2)
    With myShape
        '.LockAspectRatio = True
        '.Top = 80 'points from top
        '.Left = 10 'points from left
        '.Width = 700 'points wide
    End With
End Sub

Thanks
Mike