如何在powerpoint中更改对象的位置？

Question

我是社区和VB编程的新手。大约一小时前开始学习。对不起，如果这是一个愚蠢的问题。

我试图通过使用宏更改powerpoint中“对象”（如标题或文本框）的位置来简化生活。我已经成功完成了，但我想知道是否有办法立即执行所有标题？

这就是我所拥有的。它有效，但我不想这样做几次。

Sub Headers()

Dim X As Double

X = 72

With ActiveWindow.Selection.ShapeRange
  .height = 0.94 * (X)
  .width = 12.01 * (X)
  .left = 0.67 * (X)
  .top = 0.44 * (X)
End With

End Sub

谢谢：）