返回介绍

CropBottom 属性

发布于 2019-10-04 14:09:03 字数 884 浏览 1016 评论 0 收藏 0

返回或设置从指定图片或 OLE 对象的底部所裁剪下的磅数。可读写。Single 类型。

注意裁剪以其相对于图片初始大小来计算。例如,如果插入一个原为 100 磅高的图片,并将其高度改变为 200 磅,然后将CropBottom 属性设为 50,则将会从图片底部裁减掉 100 磅(而不是 50 磅)。

示例

本示例在myDocument 中第三个形状的底部裁剪了 20 磅。要使本示例执行,第三个形状必须是图片或 OLE 对象。

Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(3).PictureFormat.CropBottom = 20

本示例从选定的形状底部裁减掉用户指定的比例,不管该形状是否被改变过比例。要使本示例执行,选定的形状必须是图片或 OLE 对象。

percentToCrop = InputBox("What percentage do you " & _
 "want to crop off the bottom of this picture?")
Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1)
With shapeToCrop.Duplicate
 .ScaleHeight 1, True
 origHeight = .Height
 .Delete
End With
cropPoints = origHeight * percentToCrop / 100
shapeToCrop.PictureFormat.CropBottom = cropPoints

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文