Sub CropIt()
On Error Resume Next
With Selection.InlineShapes(1)
  .LockAspectRatio = False
  With .PictureFormat
    .CropLeft = CentimetersToPoints(0.5)
    .CropRight = CentimetersToPoints(0.5)
    .CropTop = CentimetersToPoints(0.5)
    .CropBottom = CentimetersToPoints(0.5)
  End With
End With
End Sub