Невозможно соединить фигуры с помощью 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 
Interesting Posts

Поиск по ключевому слову, а не по строке

Selenium WebDriver + Apache POI: вместо повторения по всем строкам веб-таблицы только первая строка получает все значения от excel

Excel 2007 – VBA Вырезать значение пасты из одной ячейки в другую ниже друг друга

VBA: GDI и пользовательские объекты

Поднимите форму пользователя при нажатии на ячейку

Извлечение строки из файла CSV в Excel VBA

Найти диапазон значений в excel

Импорт содержимого файла непосредственно в базу данных – электронная таблица Excel, нуждающаяся в ремонте

Кнопка постоянного выхода на ленте Excel

Если имя в двух разных столбцах соответствует извлечению значения третьего столбца

Получение даты в формате 'XX для диаграммы

Не могу понять это; Как сортировать данные в определенные строки в excel

Обновление SSMS и динамического электронного листа

Попытка открыть шаблон excel и переименовать или сохранить в новом месте

Категоризация и промежуточный итог в Excel

Давайте будем гением компьютера.