无法通过Shape.Name连接形状=

Question

我想在Excel中不同的形状，使用下面的代码连接器连接：

Set Shape = w.Shapes.AddShape(msoShapeRectangle, X, Y, w, h) With Shape .Name = ExampleName+i End With

出于某种原因，我只能通过Shape但不能添加连接器通过ExampleName+i。

conn.ConnectorFormat.BeginConnect Shape, 1 < - 工程 `conn.ConnectorFormat.BeginConnect范例名称+ I，1 < - 不工作

任何建议如何解决此问题？我需要这个，因为这些形状是在For循环中创建的，并且意味着具有不同的名称。

Answer 1

当您处于For循环中时，只要您一次只处理一个形状，就可以将创建形状引用为您所设置的任何形状。在这种情况下形状（我会改变这个变量）。

所以循环会看起来像：

Sub test() 
For each strName in strNames() 
    Set shpRectangle = w.Shapes.AddShape(msoShapeRectangle, X, Y, w, h) 
    With shpRectangle 
     .Name = strName 
    End With 
    shpRectangle.  <rest of code> 
Next strName 
End Sub