Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Размещение объектов на листе под определенным именем - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Размещение объектов на листе под определенным именем (Макросы/Sub)
Размещение объектов на листе под определенным именем
ВасилисаЛукьянчикова Дата: Среда, 13.06.2018, 23:41 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Всем привет.

У меня есть код, который расставляет объекты по листу - с заданными координатами, шириной, высотой, цветом.
Подскажите

В строке 9 данной таблицы- есть текстовая отметка "Рис1_3", "Рис1_4", "Рисунок-8" и т.д.
Это - название размещаемого объекта.

Как научить макрос - размещать каждый объект именно с таким названием ?
А если в ячейке - пусто, то макрос назначает название объекту - сам - как обычно.
К сообщению приложен файл: 9884462.xls(36.0 Kb)
 
Ответить
СообщениеВсем привет.

У меня есть код, который расставляет объекты по листу - с заданными координатами, шириной, высотой, цветом.
Подскажите

В строке 9 данной таблицы- есть текстовая отметка "Рис1_3", "Рис1_4", "Рисунок-8" и т.д.
Это - название размещаемого объекта.

Как научить макрос - размещать каждый объект именно с таким названием ?
А если в ячейке - пусто, то макрос назначает название объекту - сам - как обычно.

Автор - ВасилисаЛукьянчикова
Дата добавления - 13.06.2018 в 23:41
RAN Дата: Четверг, 14.06.2018, 07:45 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4817
Репутация: 968 ±
Замечаний: 0% ±

2010
Совсем беда с рекордером. :(
[vba]
Код
If Len(Cells(9, i + 1)) Then Selection.ShapeRange.Name = Cells(9, i + 1).Value
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеСовсем беда с рекордером. :(
[vba]
Код
If Len(Cells(9, i + 1)) Then Selection.ShapeRange.Name = Cells(9, i + 1).Value
[/vba]

Автор - RAN
Дата добавления - 14.06.2018 в 07:45
ВасилисаЛукьянчикова Дата: Четверг, 14.06.2018, 14:19 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
RAN, спасибо вам.
 
Ответить
СообщениеRAN, спасибо вам.

Автор - ВасилисаЛукьянчикова
Дата добавления - 14.06.2018 в 14:19
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Размещение объектов на листе под определенным именем (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!