Невозможно соединить фигуры с помощью Shape.Name =
Я хочу подключить различные формы в 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 <- Works `conn.ConnectorFormat.BeginConnect ExampleName + i, 1 <- Не работает
Любое предложение, как решить это? Мне нужно это, потому что формы создаются внутри цикла for и имеют разные имена.
Пока вы находитесь в For Loop, вы можете ссылаться на форму создания как на то, что вы ее установили, до тех пор, пока вы работаете только с одной фигурой за раз. В этом случае Shape (я бы изменил эту переменную).
Таким образом, цикл будет выглядеть примерно так:
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