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