Видимость изображения по слову в ячейке.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Видимость изображения по слову в ячейке. (Формулы/Formulas)

kvlar

Дата: Пятница, 26.09.2025, 14:39 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 57

Репутация: 0 ±

Замечаний: 0% ±

Здравствуйте. Перосмотрел огромное колличество информации по работе с изображениями на этом форуме, но под себя удалось найти частично.
Нашел файл, который мне немного подходит. Помогите мне с его доработкой.
В файле есть список.
Сейчас из списка отображается картинка при выборе цифры 2.
В макросе указана возможность выбора 1 или 2. 1-скрыта, 2- показана.
Помогите мне. Мне нужно, чтобы картика была видна если в списке выбрано "Петров А.О.", во всех остальных случаях она не должна отображаться.
И еще... В том макросе, который я нашел (в этом листе), я не пойму где указано имя самой картинки. Как она привязана к этому макросу? Или макрос к ней...

К сообщению приложен файл: 123123.xlsm (57.6 Kb)

Ответить

DrMini

Дата: Пятница, 26.09.2025, 15:25 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2129

Репутация: 345 ±

Замечаний: 0% ±

Excel LTSC 2024 RUS

Здравствуйте kvlar.

Цитата kvlar, 26.09.2025 в 14:39, в сообщении № 1 (

)

видна если в списке выбрано "Петров А.О

Вам же Владимир gling дал ссылку на возможный вариант.
Попробовал - вроде всё нормально (если картинка в ячейке).

К сообщению приложен файл: 123123.xlsx (171.1 Kb)

Ответить

kvlar

Дата: Пятница, 26.09.2025, 15:51 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 57

Репутация: 0 ±

Замечаний: 0% ±

Но ведь в моем примере картинка не в ячейке. Она сверху и перекрывает несколько ячеек.

Ответить

bigor

Дата: Пятница, 26.09.2025, 16:25 | Сообщение № 4

Группа: Проверенные

Ранг: Старожил

Сообщений: 1403

Репутация: 275 ±

Замечаний: 0% ±

нет

kvlar, по макросу
1. Измените тип dVal на текстовый
2. If dVal < 1 Or dVal > 2 Then MsgBox "Введите целое число от 1 до 2!" удалите
3. в If dVal = 1 Then =1 замените на <> "Петров А.О."
4. в ElseIf dVal = 2 Then 2 замените на "Петров А.О."

5. картинка ищется не по имени, а по номеру .Shapes.Item(3)

Сообщение отредактировал bigor - Пятница, 26.09.2025, 16:27

Ответить

kvlar

Дата: Пятница, 26.09.2025, 18:01 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 57

Репутация: 0 ±

Замечаний: 0% ±

Это то, что нужно
Сделал так.

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dVal As String
If Not Intersect(Target, Sheets("far").Range("C3")) Is Nothing Then
dVal = Sheets("far").Range("C3").Value
If dVal = "Петров А.О." Then
With ActiveSheet
.Shapes.Item(3).Visible = False
End With

ElseIf dVal = "Иванов В. В." Then
With ActiveSheet
.Shapes.Item(3).Visible = True
End With
End If
End If
End Sub

[/vba]

Иванов показана картинка, Петров скрыта.
Но, появился нюанс в том, что в списке не две фамилии, а много. И на остальные фамилии реакции нет.
По картинке... В макросе я понял, что картинка- -это .Shapes.Item(3), но я разбился не нашел где это имя именно в самой картинке? У меня будет другая картинка и где смотреть ее имя?

Если в макросе что лишнее, поправьте, пожалуйста. Я далеко не специалист.

К сообщению приложен файл: 3132132.xlsm (58.5 Kb)

Сообщение отредактировал kvlar - Пятница, 26.09.2025, 18:05

Ответить

bigor

Дата: Пятница, 26.09.2025, 18:18 | Сообщение № 6

Группа: Проверенные

Ранг: Старожил

Сообщений: 1403

Репутация: 275 ±

Замечаний: 0% ±

нет

Shapes это коллекция рисованных объектов (моими словами), т.е. каждый рисованный объект в книге имеет свой номер. В вашем файле помимо рисунка, есть еще и поле выбора и наверное еще что-то раз у рисунка № 3, Т.е. если вы вставляете рисунки по очереди, то скорее всего и нумерация будет по порядку. Можно перебрать их и найти нужный по имени.