vba - PowerPoint VBA：确定旋转时形状的XY位置和WH

Question

我正在努力使用 powerpoint (2010) VBA。我试图将两个形状从上到上对齐，这意味着在 y 轴上，第一个形状的最高点/边应该与第二个形状的最高点/边对齐。

以下代码对我有用，但仅当两个形状都没有转动时，因为 shp.top 返回形状的未旋转 y 位置，而不是旋转后的 y 位置：

' ==================================

Sub align_top()

ActiveWindow.Selection.ShapeRange(1).Top = ActiveWindow.Selection.ShapeRange(2).Top

End Sub

' ==================================

有人知道我怎样才能找回旋转的 xywh 吗？