無法通過Shape.Name連接形狀=

我想在Excel中不同的形狀，使用下面的代碼連接器連接：無法通過Shape.Name連接形狀=

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循環中創建的，並且意味着具有不同的名稱。

來源

2017-07-27 Jonas

'w.Shapes（「範例名稱」）......' – tigeravatar

它看起來像tigeravatar已經給您的解決方案。要將它應用到你的例子中，使用'w.Shapes（ExampleName＆i）'。 – Domenic

是的，它做到了！謝謝！ – Jonas

當您處於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

來源

2017-07-27 18:23:49 ThatOneGuy

問題是我只能通過'shpTectangle'連接形狀，而不是'strName'。不知何故，如果我使用strName沒有反應;我可以使用'shpTectangle'作爲動態變量嗎？ – Jonas

@ThatOneGuy，請不要使用With With End With來簡化一行。 'shpRectangle.Name = strName'比您使用的三行更容易閱讀 – jsotola

我更新了我的問題 – Jonas

無法通過Shape.Name連接形狀=

回答

相關問題