Переформатировать картинки в PowerPoint

Question

Как я могу изменить размер и переместить все изображения на разные слайды PowerPoint с помощью макроса?

Размер: высота - 4,95 дюйма, ширина - 9 дюймов, положение: х - 0,5 дюйма, у - 1,75 дюйма

Answer 1

Это сделал это!

Sub reformat()
With ActiveWindow.Selection.ShapeRange
    .Height = 4.95 * 72
    .Width = 9 * 72
    .Left = 0.5 * 72
    .Top = 1.75 * 72
    .ZOrder msoSendToBack
End With

End Sub