При выборе нужного Станка-рисунка цвет фона выделенного рисунка в табличном поле закрашивается КрасноФиолетовый НО фон всех рисунков становиться таким.
Как не обновляться все табличное поле конструкцией "ТабДокумент = ТабДокумент;" а только нужный рисунок?

&НаКлиенте
Процедура ТабДокументПриАктивизацииОбласти(Элемент)
    
    ИмяЭлемента = Элемент.ТекущаяОбласть.Имя;
    ЭтоРисунок = ?(Найти(ИмяЭлемента, "Рисунок") = 0, Ложь, Истина);
    
    Если НЕ ЭтоРисунок Тогда Возврат; КонецЕсли;
    
    СсылкаНаСправочник = ПолучитьСсылкуПоКоду(СтрЗаменить(ИмяЭлемента, "Рисунок", ""));
    
    //Сообщить(ТабДокумент.Рисунки.Количество());
    Для Каждого Рис Из ТабДокумент.Рисунки Цикл
        //Сообщить("Да ладно блять: "+Рис.Имя);
        ТабДокумент.Рисунки[Рис.Имя].ЦветФона = WebЦвета.Белый;    
    КонецЦикла;
    //ТабДокумент.Рисунки[ИмяЭлемента].ЦветФона = WebЦвета.КрасноФиолетовый;
    
    ТабДокумент = ТабДокумент;
    
    
    Элементы.Список.ТекущаяСтрока = СсылкаНаСправочник;
    
КонецПроцедуры

сорян сообщение в комментарии не заметил ...

Это: "ТабДокумент = ТабДокумент;" заменил на это: "ОбновитьИнтерфейс();"

блин почему все картинки разом а не одну красит, я так и не понял

Подскажите люди добрые почему красятся все картинки формы в КрасноФиолетовый, когда только выбранная

Данная конструкция красит все картинки в Web клиенте в толстом всё нормально, как это исправить в Web клиенте?

ТабДокумент.Рисунки["Picture"+Элемент.ТекущиеДанные.Код].ЦветФона = WebЦвета.КрасноФиолетовый;

(5) может ко всем ячейкам один и тот же рисунок присобачили?

(6) тогда почему в толстом всё правильно работает?

В толстом что выберу и то закрашивает в web всё или ничего

https://ibb.co/qgTXvLr
https://ibb.co/rbnsbJ1

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

(9) Это один и тот же табличный документ который хранится в реквизите справочника помещения с типом ХранилищеЗначений

Данная комбинация положение не улучшила

        Индекс = ТабДокумент.Рисунки.Индекс(ТабДокумент.Рисунки["Picture"+Элемент.ТекущиеДанные.Код]);
        ТабДокумент.Рисунки.Получить(Индекс).ЦветФона = WebЦвета.КрасноФиолетовый;

(11) ну русунок откуда там взялся? Вам надо проверить момент формирования табдокумента

(12)

так его вставил в Табличный документ
&НаКлиенте
Процедура ВставитьИзображениеИзФайла(Команда)
    
    УжеЕстьСтанок = ПроверитьОбъектНаНаличиеРисунка();
    Если УжеЕстьСтанок = Неопределено Тогда
        Возврат;
    ИначеЕсли УжеЕстьСтанок Тогда
        ПоказатьПредупреждение(, "Данный станок уже отрисован");
        Возврат;
    КонецЕсли;
    
    
    Если ТипЗнч(ТабДокумент.ВыделенныеОбласти[0]) = Тип("ОбластьЯчеекТабличногоДокумента") Тогда
        
        ТекущаяОбласть = ТабДокумент.ТекущаяОбласть;
        
        Режим = РежимДиалогаВыбораФайла.Открытие;
        ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
        ДиалогОткрытияФайла.ПолноеИмяФайла = "";
        Текст = "ru = ""Изображения""; en = ""Images""";
        Фильтр = НСтр(Текст)+"(*.png; *.jpg; *.jpeg; *.gif)|*.png;*.jpg;*.jpeg;*.gif";
        ДиалогОткрытияФайла.Фильтр = Фильтр;
        ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
        ДиалогОткрытияФайла.Заголовок = НСтр("ru = 'Выберите файлы'");
        Если ДиалогОткрытияФайла.Выбрать() Тогда
            МояКартинка = Новый Картинка(ДиалогОткрытияФайла.ПолноеИмяФайла);
            Рисунок = ТабДокумент.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
            Рисунок.Имя = "Picture" + Элементы.Список.ТекущиеДанные.Код;
            Рисунок.ПараметрРасшифровки = Элементы.Список.ТекущиеДанные.Наименование;
            Рисунок.РазмерКартинки = РазмерКартинки.Пропорционально;
            Рисунок.Линия = Новый Линия(ТипЛинииРисункаТабличногоДокумента.НетЛинии);            
            Индекс = ТабДокумент.Рисунки.Индекс(Рисунок);
            ТабДокумент.Рисунки[Индекс].Картинка = МояКартинка;
            ТабДокумент.Рисунки[Индекс].Расположить(ТекущаяОбласть);
            
            Модифицированность = Истина;
        КонецЕсли;        
    Иначе
        ОчиститьСообщения();
        Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст = НСтр("ru = 'Выделите область для вставки'");
        Сообщение.Поле = "ТабДокумент";
        Сообщение.Сообщить();        
    КонецЕсли;
КонецПроцедуры


Так  сохранил
&НаКлиенте
Процедура Редактирование(Команда)
    
    ОбъектДляРедактирования = ПолучитьПомещениеДляРедактированияСхемы(ПомещениеОтбора);
    
    Если Редактирование Тогда
        Редактирование = Ложь;
        Элементы.ГруппаНастройки.Доступность = Ложь;        
        Элементы.Редактирование.Заголовок = "Редактирование";
        //СохранитьИзмененияСхемы();
        Если НЕ ЗначениеЗаполнено(ПомещениеОтбора) Тогда
            Возврат;
        КонецЕсли;
        
        // очистим все выделение с рисунков
        Для Каждого Рис Из ТабДокумент.Рисунки Цикл
            ТабДокумент.Рисунки[Рис.Имя].ЦветФона = WebЦвета.Белый;    
        КонецЦикла;        
        Об = ПомещениеОтбора.ПолучитьОбъект();    
        Об.Схема = Новый ХранилищеЗначения(ТабДокумент);
        Об.Записать();
    Иначе
        Редактирование = Истина;
        Элементы.ГруппаНастройки.Доступность = Истина;
        Элементы.Редактирование.Заголовок = "Сохранить";
        
    КонецЕсли;
    
    Элементы.Редактирование.Пометка = Редактирование;
    Модифицированность = Истина;
    
КонецПроцедуры


Так зачитал
&НаСервере
Процедура ЗагрузитьСхемуИзБД()
    //ЗнОбъект = РеквизитФормыВЗначение("Объект");
    Если НЕ ЗначениеЗаполнено(ПомещениеОтбора) Тогда
        Возврат;
    КонецЕсли;
        
    Об = ПомещениеОтбора.ПолучитьОбъект();    
    Результат = Об.Схема.Получить();
    Если Результат <> Неопределено Тогда
        ТабДокумент = Результат;
    КонецЕсли;
КонецПроцедуры

что не так вроде всё ок ...

не ок но рисунки всё такие же

(15) вот здесь чего-то

ТабДокумент.Рисунки[ИмяЭлемента]


в квадратных скобках должно быть число - индекс рисунка. А у вас чего там в ИмяЭлемента? Число?