Crop.PictureHeight 属性 (Office)

获取或设置要裁剪的图像的高度。 读/写。

语法

表达式。PictureHeight

表达 返回 Crop 对象的表达式。

返回值

单精度

示例

以下示例将一个 200 x 200 的图像插入到幻灯片中心的 PowerPoint 演示文稿中。 然后，它将帧内的图像大小调整为 100 x 100。 图像帧保持为 200 x 200。 然后，代码在图像的正上方和右侧添加一个正方形 (默认形状) ，实质上裁剪图像的左下角。

Sub CropImage() 
 ActivePresentation.Slides(1).Shapes.AddPicture "c:\myImage.png", msoFalse, msoTrue, 250,150, 200, 200 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.PictureHeight = 100 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.PictureWidth = 100 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.PictureOffsetX = 0 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.PictureOffsetY = 0 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.ShapeHeight = 100 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.ShapeWidth = 100 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.ShapeLeft = 330 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.ShapeTop = 170 
End Sub 

另请参阅

• 裁剪对象成员

支持和反馈

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