vba - 使用 VBA 在 Powerpoint 中裁剪图像

Question

我需要使用 VBA 在 Powerpoint 幻灯片上裁剪图像 - 在我的特殊情况下，我从顶部和左侧边缘裁剪。

任何人都可以提供任何建议吗？

Answer 1

以下命令将从形状的每个边缘裁剪 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://docs.microsoft.com/en-us/office/vba/api/powerpoint.pictureformat.cropbottom