vba - 定义对象在excel表中的位置

Question

问题:将对象(这里是圆圈)的内容放入相应的单元格中。 (在图片上 - 将“5”放入E3单元格，并将第二个“5”放入F3)


我有一些 VBA 编程经验(对于 excel)。
而我所知道的——这是不可能的。我们可以遍历工作表上的所有对象，得到它的内容，但我们仍然不能定义它的(对象的)坐标。
所以这个问题是无解的。

但我决定问问 SO 社区，因为我可能错了。
如果你给我一些信息 - 我会很感激的。

注意。 我不是要解决我的“大学问题”。我只是想要一个提示，我应该在哪里看什么的。

Answer 1

如果我理解正确，您想返回形状所在的单元格位置吗？您可以像这样显示形状左上角的单元格地址:

Sub getLocation()
    Dim wks As Worksheet
    Set wks = Sheets("Sheet1")

    For Each sShapes In wks.Shapes
        MsgBox (sShapes.TopLeftCell.Address)
    Next
End Sub

您还可以将形状移动到特定单元格，如下所示:

Sub getLocation()
    Dim wks As Worksheet
    Set wks = Sheets("Sheet1")

    'move shape 'Oval 1' to cell H3
    wks.Shapes("Oval 1").Left = wks.Cells(3, 8).Left
    wks.Shapes("Oval 1").Top = wks.Cells(3, 8).Top
End Sub