全部显示

CanvasCropTop 方法

从画布顶部裁剪一定百分比的画布高度。

expression   必需。该表达式返回“应用于”列表中的一个对象。

Increment  Single 类型，必需。裁剪画布后需要保存的画布高度的百分比数值。输入 0.9 作为增量从顶部裁剪画布高度的百分之十。输入 0.1 从顶部裁剪画布高度的百分之九十。

说明

使用 CanvasCropBottom 方法从底部裁剪。

示例

假定活动文档中的第一个图形为画布的情况下，本示例从活动文档中第一块画布的顶部裁剪画布高度的百分之二十五。如果不是这种情况，则需要使用 AddCanvas 方法在活动文档中添加画布。

Sub CropCanvasTop()
    Dim shpCanvas As Shape

    Set shpCanvas = ActiveDocument.Shapes(1)
    shpCanvas.CanvasCropTop Increment:=0.75
End Sub