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

Question

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

但是，如果我有两个形状(比如说圆形)，我如何确定哪一个比另一个更高，或者比其他形状更靠左？

UPDTAE

• 所有对象的对象模型以及 1. 图表等方法/属性的对象模型在哪里 >> 左上角

Answer 1

下面是一些显示每个形状的行的代码:

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