返回或设置从指定的图片或 OLE 对象底部裁去的磅数。Single 类型,可读写。
expression.CropBottom
expression 必需。该表达式返回“应用于”列表中的对象之一。
裁剪的计算是同图像的原始尺寸相关的。例如,如果插入一幅原始高度为 100 磅的图像,将其放大为 200 磅高,然后设置 CropBottom 属性为 50, 那么从图像的底部切除的将是 100 磅(而不是 50 磅)。
本示例从 myDocument
上的第三个图形底部裁去 20 磅。为使本示例正常运行,第三个图形必须是图片或 OLE 对象。
Set myDocument = Worksheets(1)
myDocument.Shapes(3).PictureFormat.CropBottom = 20
使用本示例可指定从选定的图形底部裁去的百分比,不管是否已调整了该图形的大小。为使本示例正常运行,选定的图形必须是图片或 OLE 对象。
percentToCrop = InputBox( _
"What percentage do you want to crop off" & _
" the bottom of this picture?")
Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1)
With shapeToCrop.Duplicate
.ScaleHeight 1, True
origHeight = .Height
.Delete
End With
cropPoints = origHeight * percentToCrop / 100
shapeToCrop.PictureFormat.CropBottom = cropPoints