我需要使用VBA在Powerpoint幻灯片上裁剪一张图片 - 在我的情况下,我是从顶部和左侧边缘进行裁剪。
有人能提供任何建议吗?
有人能提供任何建议吗?
以下命令将从形状的每个边缘裁剪10个点:
With ActivePresentation.Slides(1).Shapes(1)
.PictureFormat.CropLeft = 10
.PictureFormat.CropTop = 10
.PictureFormat.CropRight = 10
.PictureFormat.CropBottom = 10
End With
请注意,这将在第1张幻灯片上修剪形状号为1的图形。如果您想要裁剪当前选定的形状,请使用以下内容作为第一行:With ActiveWindow.Selection.ShapeRange(1)
在此处查看有关CropBottom /等属性的更多信息: https://learn.microsoft.com/en-us/office/vba/api/powerpoint.pictureformat.cropbottom