如何获取工作表中形状的相对位置

Question

如果你想到单元格，我们逻辑上知道第2行高于第100行。

然而，如果我有两个形状（比如说圈子），我如何确定哪一个比另一个更高，或者比其他形状更左边？

UPDTAE

• 所有对象和方法/属性的对象模型在哪里，例如1. charts＆gt;＆gt;左上角

Answer 1

以下是显示每个Shape的行的代码：

Sub dural()
    Dim s As Shape, mesage As String
    For Each s In ActiveSheet.Shapes
        mesage = mesage & vbCrLf & s.Name & "---" & s.TopLeftCell.Row
    Next s
    MsgBox mesage
End Sub