检测线的形状末端点

Question

我在Excel工作表一些相当大图，示出了输入和目标像这样：

这里，输入i/p_1被视为signal_1到标记行的左侧（红线），然后前往目的地1和2。所有的文本都被输入到单元格中，箭头被绘制为形状。

我要创建一个表的输入，信号名称和目的地像这样：

我将如何实现这一目标？

我在想，找出箭头的起点和终点，然后看看上面那一行的单元格会给我一个很好的起点。 但我不知道如何做到这一点。

Answer 1

这是一个想法来检索请求的单元格。这应该是实现你的目标的一个很好的起点。

Sub DisplayArrowCells() 
    Dim x As Shape 
    For Each x In Shapes 
     If InStr(x.Name, "Elbow Connector") = 1 Then 
      Debug.Print _ 
       x.TopLeftCell.Address & "," & x.TopLeftCell.Value _ 
       & " <---- " & _ 
       x.BottomRightCell.Offset(-1, 0).Address & "," & x.BottomRightCell.Offset(-1, 0).Value 
     End If 
    Next 
End Sub