Question

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

注意 裁剪的尺寸是依据图形的原始尺寸计算的。例如，插入一幅原始高度为 100 磅的图形，将其放大至高 200 磅。如果将 CropBottom 属性设置为 50，则从图形底部剪去 100 磅，而不是 50 磅。

示例

本示例从活动文档的图形 3 的底部裁剪 20 磅。仅当该图形是图片或 OLE 对象时，本示例才有效。

ActiveDocument.Shapes(3).PictureFormat.CropBottom = 20

本示例实现的功能是：根据用户指定的百分比从底部裁剪所选图形，而无论该图形是否经过缩放。仅当所选图形为图片或 OLE 对象时，本示例才有效。

Dim dblPercent As Double
Dim shapeCrop As Shape
Dim sngHeight As Single
Dim sngCrop As Single

dblPercent = Val(InputBox("What percentage do you want " _
    & "to crop off the bottom of this picture?"))

Set shapeCrop = _
    Selection.ShapeRange(1)

With shapeCrop.Duplicate
    .ScaleHeight 1, True
    sngHeight = .Height
    .Delete
End With

sngCrop = sngHeight * dblPercent / 100

shapeCrop.PictureFormat.CropBottom = sngCrop