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

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

但是，如果我有两个形状（让我们说圈子），我该如何确定哪一个比另一个更高，还是比其他的更远？

UPDTAE

• 所有对象和方法/属性的对象模型在哪里？1.图表>>左上angular

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