CropTop 属性

返回或设置从指定图片或 OLE 对象顶端裁剪的尺寸。Single 类型，可读写。

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

示例

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

ActiveDocument.Shapes(3).PictureFormat.CropTop = 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 top 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.CropTop = sngCrop