The simplest way to trim a picture pasted into excel

Try something like this...

Sub Test()

ActiveSheet.Shapes("Picture 1").Select

With Selection
    .ShapeRange.ScaleWidth 0.6116072029, msoFalse, msoScaleFromTopLeft
    .ShapeRange.ScaleHeight 0.6116071429, msoFalse, msoScaleFromTopLeft
End With

End Sub