vba - 在 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