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

Question

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

Set 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