Word VBA教程:CropLeft属性

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

注意   裁剪的尺寸是依据图形的原始尺寸计算的。例如,插入一幅原始宽度为 100 磅的图形,将其放大至宽 200 磅。如果将 CropLeft属性设置为 50,则从图形左边裁剪 100 磅,而不是 50 磅。

VBA示例

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


ActiveDocument.Shapes(3).PictureFormat.CropLeft = 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 left 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.Crop Left = sngCrop

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号