изменение подложки в зависимости от изменения данных в ячейке

Автор edmar07, 29.03.2013, 12:44

« назад - далее »

edmar07

И опять добрый день!

У меня опять вопросы!!!

можно ли менять подложки на странице исходя от изменения условий в определенной ячейке?, ну или хотя бы просто ее убирать;)

спасибо!

kuklp

Макрорекордер за неуплату отключили? В модуль листа:
Private Sub Worksheet_Change(ByVal Target As Range)
    If [a1] = 5 Then
        ActiveSheet.SetBackgroundPicture "I:\Dokument\Мои рисунки\2001-11\VALYA5.JPG"
    Else
        ActiveSheet.SetBackgroundPicture ""
    End If
End Sub
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

edmar07

Цитата: KuklP от 29.03.2013, 13:00
Макрорекордер за неуплату отключили? В модуль листа:
Private Sub Worksheet_Change(ByVal Target As Range)
    If [a1] = 5 Then
        ActiveSheet.SetBackgroundPicture "I:\Dokument\Мои рисунки\2001-11\VALYA5.JPG"
    Else
        ActiveSheet.SetBackgroundPicture ""
    End If
End Sub

мне бы так чтоб без ссылок на внешние источники!

kuklp

Цитата: edmar07 от 29.03.2013, 12:44ну или хотя бы просто ее убирать;)
А вручную Вы сможете установить подложку без внешнего источника? Отож.
Тогда оставьте строку с очисткой подложки.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

edmar07

Цитата: KuklP от 29.03.2013, 13:33
Тогда оставьте строку с очисткой подложки.
Сорри, я не правильно сформулировал задачу!!!
с подложкой - не вариант
У меня 7 разных рисунков
в ячейке В1 изменяемый параметр
рисунки будут наложены на данные
и они должны меняться при изменении параметра в В1

рисунки (если точнее - это карты) будут полупрозрачные

cheshiki1


edmar07