PictureFormat.CropRight 属性 (Publisher)

返回或设置一个 variant 类型的值 表示的量所裁剪的图片或 OLE 对象的右边缘。 读/写。

语法

表达式。CropRight

表达 一个代表 PictureFormat 对象的变量。

返回值

Variant

备注

数值以 磅为单位计算;字符串可以位于 Microsoft Publisher (支持的任何单元中，例如，“2.5 in”) 。

负值将下边缘从框架中心裁剪，正值将裁剪到框架的左边缘。

裁剪值的有效范围取决于框架的位置和尺寸。 对于未轮动的帧，允许的最低负值是框架的右边缘与暂存区域的右边缘之间的距离。 所允许的最大正值是当前框架的宽度。

裁剪以相对于图片的原始尺寸计算。 例如，如果插入的图片，最初为 100 磅，将其高度调整为 200 磅，然后将 CropRight 属性设置为 50，100 磅 (而不是 50) 将裁剪图片的右侧。

使用 CropLeft 、 CropTop 和 CropBottom 属性可裁剪图片或 OLE 对象的其他边。

示例

本示例将当前出版物中的第三个形状的右边裁剪 20 磅。 为了使本示例生效，该形状必须是图片或 OLE 对象。

ActiveDocument.Pages(1).Shapes(3).PictureFormat _ 
 .CropRight = 20

本示例将选定形状的右边裁剪用户指定的百分比，而不考虑该形状是否调整过。 为了使本示例生效，选定形状必须是图片或 OLE 对象。

Dim sngPercent As Single 
Dim shpCrop As Shape 
Dim sngPoints As Single 
Dim sngWidth As Single 
 
sngPercent = InputBox("What percentage do you " & _ 
 "want to crop off the right of this picture?") 
 
Set shpCrop = Selection.ShapeRange(1) 
With shpCrop.Duplicate 
 .ScaleWidth Factor:=1, _ 
 RelativeToOriginalSize:=True 
 sngWidth = .Width 
 .Delete 
End With 
 
sngPoints = sngWidth * sngPercent / 100 
 
shpCrop.PictureFormat.CropRight = sngPoints 

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。