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

Question

我正在与powerpoint（2010）VBA挣扎。我试图将两个形状从顶部到顶部对齐，这意味着，在y轴上，第一个形状的最高点/侧面应该与第二个形状的最高点/侧面对齐。

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

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

Sub align_top()

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

End Sub

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

有人知道如何检索roated xywh吗？