Word) (PictureFormat.CropTop 属性

  • 项目

返回或设置从指定的图片或 OLE 对象的顶部裁剪的磅数。 读/写 单个 。

语法

表达式。CropTop

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

备注

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

示例

本示例从活动文档的图形 3 的顶端裁剪 20 磅。 仅当该图形是图片或 OLE 对象时，本示例才有效。

ActiveDocument.Shapes(3).PictureFormat.CropTop = 20

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

Dim dblPercent As Double 
Dim shapeCrop As Shape 
Dim sngHeight As Single 
Dim sngCrop As Single 
 
dblPercent = Val(InputBox("What percentage do you want " _ 
 & "to crop off the top of this picture?")) 
 
Set shapeCrop = _ 
 Selection.ShapeRange(1) 
 
With shapeCrop.Duplicate 
 .ScaleHeight 1, True 
 sngHeight = .Height 
 .Delete 
End With 
 
sngCrop = sngHeight * dblPercent / 100 
 
shapeCrop.PictureFormat.CropTop = sngCrop

另请参阅

PictureFormat 对象

支持和反馈

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