Обрезка изображения в Powerpoint с использованием VBA

Question

Мне нужно обрезать изображение на слайде Powerpoint с помощью VBA - в моем конкретном случае я обрезаю верхний и левый края.

Может кто-нибудь дать совет?

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