Cropping an image using VBA

I need to crop an image on a Powerpoint slide using VBA - in my particular case I'm cropping from the top and left edges.

Can anyone offer any advice?

From stackoverflow

• Found it:

  With ActivePresentation.Slides(3).Shapes(1) 
    .PictureFormat.CropLeft = 10
    .PictureFormat.CropTop = 10
    .PictureFormat.CropRight = 10
    .PictureFormat.CropBottom = 10
  End With