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