Returns or sets the number of points that are cropped off the right side of the specified picture or OLE object. Read/write Single. 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 is 200 points wide, and then set the CropRight property to 50, 100 points (not 50) will be cropped off the right side of your picture.
Syntax
expression.CropRight
expression A variable that represents a PictureFormat object.
Return Value
Single
Example
This example crops 20 points off the right side of shape three on myDocument. For this example to work, shape three must be either a picture or an OLE object.
| Visual Basic for Applications
|
Set myDocument = ActivePresentation.Slides(1) myDocument.Shapes(3).PictureFormat.CropRight = 20
|
This example crops the percentage specified by the user off the right 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.
| Visual Basic for Applications
|
percentToCrop = InputBox("What percentage do you " & _ "want to crop off the right 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.CropRight = cropPoints
|
crop right Crop Right Property CropRight cropright property Cut off part of the right side of picture? Make picture narrower on right side?
See also: