PictureFormat.CropLeft Property (Excel)
Returns or sets the number of points that are cropped off the left side of the specified picture or OLE object. Read/write Single .
expression An expression that returns a PictureFormat object.
Cropping is calculated relative to the original size of the picture. For example, if you insert a picture that is originally 100 points wide, rescale it so that it's 200 points wide, and then set the CropLeft property to 50, 100 points (not 50) will be cropped off the left side of your picture.
This example crops 20 points off the left side of shape three on
myDocument. For the example to work, shape three must be either a picture or an OLE object.
Set myDocument = Worksheets(1) myDocument.Shapes(3).PictureFormat.CropLeft = 20
Using this example, you can specify the percentage you want to crop off the left side of the selected shape, regardless of whether the shape has been scaled. For the example to work, the selected shape must be either a picture or an OLE object.
percentToCrop = InputBox( _ "What percentage do you want to crop" &; _ " off the left of this picture?") Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1) With shapeToCrop.Duplicate .ScaleWidth 1, True origWidth = .Width .Delete End With cropPoints = origWidth * percentToCrop / 100 shapeToCrop.PictureFormat.CropLeft = cropPoints