Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Обновление картинки в зависимости от вычисляемого значения
 
#1
28.11.2016 15:29:56
В исходном файле, на листе "Исходные данные", забиваются условия. В результате вычислений, имеем итог, в формате числа от 1-60 (в примере упрощенный вариант суммы условий).
По результатам вычислений необходимо что бы на листе "Картинка" автоматически отобразилась картинка из папки "База данных картинок", где будут располагаться картинки с именами от 1 до 60. Соответственно если итог=1 отображается 1.jpg, если итог=2 отображается 2.jpg и т.д... Место отображения всегда одинаковое, размер картинки, как в исходном файле.
 
 
 
#2
28.11.2016 15:42:04
Доброе время суток
Буквально недавно. Адаптируйте под себя.
Успехов.
Изменено: Андрей VG - 28.11.2016 15:42:13
 
 
 
#3
28.11.2016 16:10:56
Андрей VG, да, это моя тема и её закрыли, а там не все получилось реализовать. Проблема в том, что картинка не обновляется автоматически после пересчета формулы. Нужна динамическая связь
 
 
 
#4
28.11.2016 18:00:55
Добрый день.
Я делал вот так.
Сколько условий столько картинок.
Вдруг поможет это вам :)

Код
Sub Worksheet_Calculate()
 With Workbooks("Имя книги").Sheets("Имя листа")
        If [ячейка] = 1 Then 'вместо еденицы ваше значение чему должна быть равна ячейка
            .Shapes("имя картинки").Visible = True 'картинку видно
        Else
            .Shapes("имя картинки").Visible = False 'картинку не видно
        End If
            
End With
End Sub
Изменено: BotExcel - 28.11.2016 18:02:08 (Совсем забыл, это пишется в код листа где помещена картинка)
 
 
 
#5
28.11.2016 19:13:02
Посмотрите приложенный вариант. Вводите номер картинки на Лист2 в ячейку A1. Картинка вставится на соседний лист.
 
 
 
#6
29.11.2016 11:36:16
BotExcel, Да, такой вариант изначально делал, но 60 картинок накладно прописывать и плюс все картинки должны быть вставлены в файл, что нагружает его
 
 
 
Страницы: 1
Читают тему
Наверх