图片之间列出link

Question

我正在做一个项目，我试图通过移动设备的图片并用箭头链接它们来建立我的过程的连接和顺序来重建工业过程。

我是 vba 的新手，我被卡住了。

我可以通过点击他们的图片来插入新设备，复制并粘贴图片，弹出一个用户表单，我可以设置图片的名称和其他参数。 equipment inventory and what it would look like connected

我玩过一些允许我在工作表上列出图片或形状的宏，这很棒。但是我没有找到任何可以让我列出连接的东西。我知道这些连接是“记录”的，因为我记录了一个显示它的宏。connection between 2 pictures

关于我如何能够在工作表上列出这些联系并确定什么与什么以及什么之前的联系的任何想法。

谢谢。

{编辑} 代码：

已记录连接

Sub connection_stack()

ActiveSheet.Shapes.Range(Array("C3")).Select
Selection.ShapeRange.ConnectorFormat.BeginConnect ActiveSheet.Shapes("TO1"), 4
Selection.ShapeRange.ScaleWidth 2.9100441391, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 2, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.5, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 23.7025647736, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.Flip msoFlipVertical
Selection.ShapeRange.ConnectorFormat.EndConnect ActiveSheet.Shapes( _
    "Picture 84"), 2
Selection.ShapeRange.ScaleWidth 0.4494922067, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.0143200614, msoFalse, _
    msoScaleFromBottomRight

结束子

adding an equipment

Sub New_TO()

ActiveSheet.Shapes.Range(Array("Picture 5")).Select
Selection.Copy
ActiveSheet.Paste
Selection.OnAction = ""
Selection.ShapeRange.IncrementLeft 138.4090551181
Selection.ShapeRange.IncrementTop -8.1818110236
Selection.Name = "TO_transit"
newTO.Show

结束子

changing name of equipment from form

一旦我创建了新设备（具有新名称的图片的副本），我将它们与我创建的箭头手动连接，并按照与设备相同的方式命名。

Answer 1

连接器是一种形状。您只需要遍历每个形状并检查它是否与属性 Shape.Connector

的连接器

Shape.Connector (Excel)

例如，我制作了 3 个形状和 2 个连接器：

我的代码：

Sub test()

Dim kk As Shape
Dim wk As Worksheet


Set wk = ActiveSheet

For Each kk In wk.Shapes
    If kk.Connector = msoTrue Then
        Debug.Print "From ", kk.ConnectorFormat.BeginConnectedShape.Name, " to ", kk.ConnectorFormat.EndConnectedShape.Name
    End If
Next kk


End Sub

我得到的输出正是我制作连接器的方式：

From          Rectangle 1    to           Oval 2
From          Oval 2         to           Snip Single Corner Rectangle 3

图片之间列出link

Listing link between pictures

excel

vba