Доброго дня! Коллеги, подскажите, пожалуйста, как достучасться до свойства "фоноваякартинка" у области табличного документа (ячейки макета). Нужно программно менять в зависимости от входящего условия

Изменить фоновую картинку области табличного документа

Вознаграждение за ответ

Сумма: 0 $m

Добавили:
psa247 (3.00 $m)

Получили:

kuzev (2 $m), Sashares (1 $m)

Показать полностью

3. kuzev 47 06.07.22 17:50 Сейчас в теме +2 $m

(1) Даю идею. Написать подробнее не могу, т.к. у Вас не описаны условия формирования табличного документа и что является источником картинок.

	КоличествоКолонокТаблицы = ДокументРезультат.ШиринаТаблицы;
	КоличествоСтрокТаблицы = ДокументРезультат.ВысотаТаблицы;
	Для Кл = 1 По КоличествоКолонокТаблицы Цикл
		Для Ст = 1 По КоличествоСтрокТаблицы Цикл
			ТекОбласть = ДокументРезультат.Область(Ст, Кл);
			Если ТекОбласть.Расшифровка <> Неопределено Тогда
				ПоляРасшифровки = ДанныеРасшифровки.Элементы[ТекОбласть.Расшифровка].ПолучитьПоля();
				Если ПоляРасшифровки.Количество() > 0 Тогда
					ПрисоединенныйФайл = ПоляРасшифровки.Получить(0).Значение;
					Если ТипЗнч(ПрисоединенныйФайл) = Тип("СправочникСсылка.НоменклатураПрисоединенныеФайлы") Тогда
						ДанныеФайла = РаботаСФайлами.ДвоичныеДанныеФайла(ПрисоединенныйФайл, Ложь);
						Если ДанныеФайла <> Неопределено Тогда
							Рисунок = Новый Картинка(ДанныеФайла);
							Рис = ДокументРезультат.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
							Рис.РазмерКартинки = РазмерКартинки.Пропорционально;
							Рис.Картинка = Рисунок;
							Рис.Расположить(ТекОбласть);
						КонецЕсли;
					КонецЕсли;
				КонецЕсли;
			КонецЕсли;
		КонецЦикла;
	КонецЦикла;

Показать

6. psa247 17 06.07.22 18:50 Сейчас в теме

(3) получилось!
ТекОбласть = ТабДок.Область(5, 45);
Рисунок = БиблиотекаКартинок.Skype;
Рис = ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Рис.РазмерКартинки = РазмерКартинки.Пропорционально;
Рис.Картинка = Рисунок;
Рис.Расположить(ТекОбласть);

2. Sashares 34 06.07.22 17:47 Сейчас в теме +1 $m

(1)Получить область в которой надо задать картинку, и присвоить в одноименное свойство.

ТабДок.Область(3,2,3,2).Картинка = БиблиотекаКартинок.Skype;

Прикрепленные файлы:

ТестТабДОк 2022 07 06.epf

4. psa247 17 06.07.22 18:39 Сейчас в теме

(2)

ТабДок.Область(3,2,3,2).Картинка = БиблиотекаКартинок.Skype;

не получилось, такое ощущение, что не у того объекта ищу это свойство

3. kuzev 47 06.07.22 17:50 Сейчас в теме +2 $m

(1) Даю идею. Написать подробнее не могу, т.к. у Вас не описаны условия формирования табличного документа и что является источником картинок.

	КоличествоКолонокТаблицы = ДокументРезультат.ШиринаТаблицы;
	КоличествоСтрокТаблицы = ДокументРезультат.ВысотаТаблицы;
	Для Кл = 1 По КоличествоКолонокТаблицы Цикл
		Для Ст = 1 По КоличествоСтрокТаблицы Цикл
			ТекОбласть = ДокументРезультат.Область(Ст, Кл);
			Если ТекОбласть.Расшифровка <> Неопределено Тогда
				ПоляРасшифровки = ДанныеРасшифровки.Элементы[ТекОбласть.Расшифровка].ПолучитьПоля();
				Если ПоляРасшифровки.Количество() > 0 Тогда
					ПрисоединенныйФайл = ПоляРасшифровки.Получить(0).Значение;
					Если ТипЗнч(ПрисоединенныйФайл) = Тип("СправочникСсылка.НоменклатураПрисоединенныеФайлы") Тогда
						ДанныеФайла = РаботаСФайлами.ДвоичныеДанныеФайла(ПрисоединенныйФайл, Ложь);
						Если ДанныеФайла <> Неопределено Тогда
							Рисунок = Новый Картинка(ДанныеФайла);
							Рис = ДокументРезультат.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
							Рис.РазмерКартинки = РазмерКартинки.Пропорционально;
							Рис.Картинка = Рисунок;
							Рис.Расположить(ТекОбласть);
						КонецЕсли;
					КонецЕсли;
				КонецЕсли;
			КонецЕсли;
		КонецЦикла;
	КонецЦикла;

Показать

6. psa247 17 06.07.22 18:50 Сейчас в теме

(3) получилось!
ТекОбласть = ТабДок.Область(5, 45);
Рисунок = БиблиотекаКартинок.Skype;
Рис = ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Рис.РазмерКартинки = РазмерКартинки.Пропорционально;
Рис.Картинка = Рисунок;
Рис.Расположить(ТекОбласть);

5. psa247 17 06.07.22 18:46 Сейчас в теме

ТабДок.ПолучитьОбласть("R5C37:R5C37").ФоноваяКартинка = БиблиотекаКартинок.Skype; - ошибку не выдает, но и не выводит

8. ybatiaev 58 05.12.22 19:49 Сейчас в теме

(5) ТабДок.ФоноваяКартинка = БиблиотекаКартинок.Skype;

У меня так

	ВодянойЗнак = Обработка.ПолучитьМакет("ВодянойЗнак");
	ТабДок.ФоноваяКартинка = новый картинка(ВодянойЗнак, Истина);

7. psa247 17 06.07.22 18:51 Сейчас в теме

Спасибо, что не прошли мимо! :)