Как узнать внутренние имена картинок листе EXСEL?

[Mr.Alex]

На листе EXСEL лежат несколько картинок. Как программно прятать нужные картинки и как узнать внутренние имена картинок, по которым нужно к ним обращаться?

[GSerg]

Задать их один раз сначала.

[Mr.Alex]

Так они уже есть на листе! (Были вставлены Вставка-рисунок-из файла)

[GSerg]

А теперь задать им имена, используя то же поле ввода, что и для именования диапазонов листа.

[Mr.Alex]

Что-то не соображу как это сделать.... Не подскажите?

[GSerg]

Выделить картинку. Поставить курсор в поле ввода имени диапазона. Ввести имя картинки. Нажать Enter.

[Mr.Alex]

Хм... Чё-то я торможу сильно...
А где это "поле ввода имени диапазона"????

Картинку выделяю. По правой кнопке мыши ничего подобного нет!!!

[Mr.Alex]

Хм... Чё-то я торможу сильно...
А где это "поле ввода имени диапазона"????

Картинку выделяю. По правой кнопке мыши ничего подобного нет!!!

[uhm]

Левее окошка "ввод формулы". Там отображается название ячейки (либо "А1", либо, если именованный диапазон, то его имя). Туда же имя можно ввести.

[Mr.Alex]

И ПРАВДА ТОРМОЖУ!!!
УРЯ! Нашел!
Теперь как показать/спрятать?

Лист1.Рисунок1.visible=true/false ?

[GSerg]

Попробуй

[Mr.Alex]

Не, не работат.
Как иначе?

[alibek]

Лист1.Shape("Рисунок1").Visible = False работает?

[Mr.Alex]

Заработало!

Только надо свойство "Shapes", а не "Shape"

[Mr.Alex]

Теперь другой вопрос:
Как скопировать рисунок Рисунок1 с Лист1 на Лист2 на VBA?

[Mr.Alex]

Что-то не соображу как это сделать.... Не подскажите?

[GSerg]

.copy
worksheets(2).paste