Как в PowerPoint VBA сдвинуть все существующие фигуры в окне (а не только одну)?

Question

Насколько я понимаю, этот код "захватывает" только первую фигуру в активном окне и подталкивает ее:

Установите oShape = oSlide.Shapes(1)

oShape.Left = oShape.Left + 5

Как я могу «схватить» все фигуры в окне и подтолкнуть их все одновременно?

Answer 1

Вероятно, вы могли бы просмотреть текущий слайд Shapes Коллекция для установки каждого из них.

Dim oShape As Shape

For Each oShape In oSlide.Shapes
    oShape.Left = oShape.Left + 5
Next