CropRight 属性 - Microsoft Excel Visual Basic 2002 参考

返回介绍

CropRight 属性

发布于 2019-08-07 字数 1259 浏览 910 评论 0

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

expression.CropRight

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

说明

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

示例

本示例从 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

上一篇:CropLeft 属性

下一篇:CropTop 属性

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

目前还没有任何评论,快来抢沙发吧!