CropBottom 属性

返回或设置从指定的图片或 OLE 对象底部裁去的磅数。Single 类型，可读写。

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