Resize Shape from Excel before pasting it in PP

Hello,

I'm copying a range in excel, and want to paste it into powerpoint. The size is to big, and it cuts of of some of the columns. So I want to resize it, but I need to do it before pasting it in. Does anyone know how to do that?

Here is my code:

Sheets("Key Projects").Select
Range("B2:Q31").Select
Selection.Copy
activeSlide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture).Select

AFAIK not before you paste but when you paste is OK.

With activeslide.Shapes.PasteSpecial(ppPasteMetafilePicture)
.LockAspectRatio = True
.Left = 0
.Top = 0
.Width = 100
End With