Помогите, пожалуйста! есть несколько (много) именованных диапазонов, в зависимости от выбраного значения именованный диапазон отображается в виде картинки, как это реализовать более элегантно чем на листе "Test" дабы не плодить огромное количество картинок
Нужен именно рисунок или в одном и том же месте отображать сам диапазон?
Пользователь
Сообщений: Регистрация: 03.01.2014
11.05.2019 20:50:05
диапазоны отличаются размерами (серый, самый большой рисунок) и их необходимо вписать в определенный размер. (Это формируется печатная форма) поэтому было решено через картинки
когда этих картинок переваливает за 20 шт excel начинает задумываться нещадно поэтому и был вопрос как это сделать "более Элегантно" задача была решена "по быстрому". но мне кажется, что это можно сделать по другому, не генерируя учу картинок, а подпихнуть в значение"Foto" именованный диапазон
PS спасибо что убрали картинки под спойлер
Изменено: - 11.05.2019 22:09:41
Модератор
Сообщений: Регистрация: 14.09.2012
Контакты см. в профиле
11.05.2019 22:25:07
Я бы всё же показывал диапазон, а не картинку - как Вы потом будет извлекать из картинки данные? См. вариант.
gling написал: Под реальный файл нужно будет переделать формулу диапазона
Наверное я сильно упростил пример. На "Лист2" пример именованного диапазона из реального документа, там сборная солянка, поэтому через динамические диапазоны не получается
Цитата
Юрий М написал: Я бы всё же показывал диапазон, а не картинку - как Вы потом будет извлекать из картинки данные?
Макрос не подтягивает картинки и блоки. Или я не знаю как. Данные извлекать не надо, Это формируется "Печатная форма" для распечатки на бумагу.
Ув. знатоки подскажите пожалуйста. Не стал создавать новую тему, т.к. тем по данному вопросу уже предостаточно, уже с готовыми решениями. Но я споткнулся на простейшем. Вот есть файл (взял с одной из тем, находящейся в архиве). В зависимости от значения в ячейке - показывает одну из трех картинок. По коду все понятно, идет выбор одного из трех Item-ов. Но я голову сломал, где эти Item-ы (картинки то есть), находятся внутри файла? Куда их вставил автор файла изначально?
На самом деле всё понятно? Тогда откуда вообще возник вопрос, если в коде видно, что управляем видимостью рисунков:
Код
With ActiveSheet
.Shapes.Item(1).Visible = True
.Shapes.Item(2).Visible = False
.Shapes.Item(3).Visible = False
End With
Пользователь
Сообщений: Регистрация: 06.06.2014
19.06.2019 09:54:44
Ммм, спасибо большое.
Пользователь
Сообщений: Регистрация: 10.02.2020
10.02.2020 23:29:52
Приветствую. Также Не стал создавать новую тему, т.к. тем по данному вопросу уже предостаточно, уже с готовыми решениями.
Прикрепленный выше файл (87 КБ) был взят как исходный.
Моя вводные: Есть файл с 15 листами. Имена листов меняются пользователем.
На листе "Сводная" в ячейке А43 - можно поставить значение "1" или "2". Идёт смена логотипа "100", либо "Item(2)" Тестируя, В коде указал лист "СМП". Он единственный никем не переименовывается.
Моя задача: чтобы на всех остальных листах Книги - также происходила смена картинки по измению А43 на "Сводной"
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dVal As Integer
If Not Intersect(Target, Sheets("Сводная").Range("A43")) Is Nothing Then
dVal = Sheets("Сводная").Range("A43").Value
If dVal = 1 Then
With ActiveSheet
.Shapes("100").Visible = True
.Shapes.Item(2).Visible = False
End With
With Sheets("СМП")
.Shapes("100").Visible = True
.Shapes.Item(2).Visible = False
End With
ElseIf dVal = 2 Then
With ActiveSheet
.Shapes("100").Visible = False
.Shapes.Item(2).Visible = True
End With
With Sheets("СМП")
.Shapes("100").Visible = False
.Shapes.Item(2).Visible = True
End With
End If
End If
End Sub
