Страницы: 1
RSS
VBA. Присвоение имени фигуре согласно номера строки в которой она находится
 
Всем доброго дня!
Думаю из темы понятна суть вопроса. Необходим код присваивающий всем фигурам на листе имя строки, в которой она находится. Все фигуры в разных строках и фиксированной ширины.

Представляю как это можно сделать из расчета координаты верха каждой строки, потом сопоставления ее с .left фигуры, но это как то долго... Может знаете как это можно сделать проще? И если знаете подскажите :)
 
Цитата
art013 написал: но это как то долго...
а по-другому никак
Согласие есть продукт при полном непротивлении сторон
 
Sanja, твоего ответа было достаточно чтобы перебороть лень и сделать описанным мною способом) Спасибо!
Изменено: art013 - 27.01.2016 17:17:20
 
Вообще проще идти циклом по фигурам и обращаться к свойству TopLeftCell. Там уже есть номер строки верхней левой ячейки, в которой расположена фигура...
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Доброе время суток
Цитата
Sanja написал: а по-другому никак
Это почему же? Как то выглядит бездоказательно.
У объекта класса, что Shape, что Picture есть свойство TopLeftCell - ячейка на которой лежит верхний левый угол прямоугольника обрамления фигуры, а ячейка это объект класса Range, имеющий свойство Row - номер строки.
 
Андрей VG, The_Prist, вот чувствовал же что можно как-то проще!) Но уже сделал как сложнее, буду переделывать... Спасибо!  ;)
 
Да можно прямо в Immediate сделать, если это разовая задача
Код
for each s in activesheet.shapes:s.name=s.topleftcell.row:next
Страницы: 1
Читают тему
Наверх