Excel VBA教程:CropRight属性

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

expression.CropRight

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

说明

裁剪的计算是同图像的原始尺寸相关的。例如,如果插入一幅原始宽度为 100 磅的图像,将其放大为 200 磅宽,然后设置 CropRight属性为 50, 那么 100 磅(不是 50 磅)将从图像的右边被切除。

Excel VBA教程:CropRight属性·示例

本示例从myDocument 上的第三个图形右边裁去 20 磅。为使本示例正常运行,第三个图形必须是图片或 OLE对象。


Set myDocument = Worksheets(1)
myDocument.Shapes(3).PictureFormat.CropRight = 20

使用本示例可指定从选定的图形右边裁去的百分比,不管是否已调整了该图形的大小。为使本示例正常运行,选定的图形必须是图片或 OLE对象。


percentToCrop = InputBox( _
    "What percentage do you want to crop" & _
    " off the right of this picture?")
Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1)
With shapeToCrop.Duplicate
    .ScaleWidth 1, True
    origWidth = .Width
    .Delete
End With
cropPoints = origWidth * percentToCrop / 100
shapeToCrop.PictureFormat.CropRight = cropPoints

上页:Excel VBA教程:CropLeft属性 下页:Excel VBA教程:CropTop属性

Excel VBA教程:CropRight属性

Excel VBA教程:CropTop属性 Excel VBA教程:Crosses属性
Excel VBA教程:CrossesAt属性 Excel VBA教程:CubeField属性
Excel VBA教程:CubeFields属性 Excel VBA教程:CubeFieldType属性
Excel VBA教程:CurrentArray属性 Excel VBA教程:CurrentPage属性
Excel VBA教程:CurrentPageList属性 Excel VBA教程:CurrentPageName属性
Excel VBA教程:CurrentRegion属性 Excel VBA教程:Cursor属性
Excel VBA教程:CursorMovement属性 Excel VBA教程:CustomDocumentProperties属性
Excel VBA教程:CustomListCount属性 Excel VBA教程:CustomProperties属性
Excel VBA教程:CustomSubtotalFunction属性 Excel VBA教程:CustomViews属性
Excel VBA教程:CutCopyMode属性 Excel VBA教程:Cyan属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号