使用VBA在Powerpoint中裁剪图像

8
我需要使用VBA在Powerpoint幻灯片上裁剪一张图片 - 在我的情况下,我是从顶部和左侧边缘进行裁剪。
有人能提供任何建议吗?
1个回答

14

以下命令将从形状的每个边缘裁剪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


网页内容由stack overflow 提供, 点击上面的
可以查看英文原文,
原文链接