从画布右侧裁剪一定百分比的画布宽度。
expression.CanvasCropBottom(Increment)
expression 必需。该表达式返回“应用于”列表中的一个对象。
Increment Single 类型,必需。裁剪画布后需要保存的画布宽度的百分比数值。输入 0.9 作为增量从右侧裁剪画布宽度的百分之十。输入 0.1 从右侧裁剪画布宽度的百分之九十。
使用 CanvasCropLeft 方法从画布的左侧裁剪。
假定活动文档中的第一个图形为画布的情况下,本示例从右侧裁剪活动文档中第一块画布宽度的百分之二十五。如果不是这种情况,需要使用 AddCanvas 方法在文档中添加画布。
Sub CropCanvasRight()
Dim shpCanvas As Shape
Set shpCanvas = ActiveDocument.Shapes(1)
shpCanvas.CanvasCropRight Increment:=0.75
End Sub