裁剪 Office) (对象
一个用于去除图像的某一部分的对象。
以下示例将一个 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 支持和反馈,获取有关如何接收支持和提供反馈的指南。