在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