Word VBA教程:CropRight属性

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

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

VBA示例

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


ActiveDocument.Shapes(3).PictureFormat.CropRight = 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 right 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 Right = 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号