Насколько я понимаю, этот код "захватывает" только первую фигуру в активном окне и подталкивает ее:
Set oShape = oSlide.Shapes (1) oShape.Left = oShape.Left + 5
Set oShape = oSlide.Shapes (1)
oShape.Left = oShape.Left + 5
Как я могу "схватить" все фигуры в окне и подтолкнуть их все сразу?
Вероятно, вы можете выполнить итерацию коллекции Shapes текущего слайда, чтобы установить каждый из них.
Shapes
Dim oShape As Shape For Each oShape In oSlide.Shapes oShape.Left = oShape.Left + 5 Next