Уменьшение размера диаграммы

Клиенту понадобилось уменьшить размер диаграммы, чтобы отчет помещался на одну страницу.

Изначально диаграмма выводилась так:

Я уменьшил ее на 2/3:

Настройками СКД сделать это не смог, поэтому просто обработал готовый табличный документ:

КУменьшения = 2/3;
Для Каждого Рисунок ИЗ ДокументРезультат.Рисунки Цикл
	Если Рисунок.ТипРисунка = ТипРисункаТабличногоДокумента.Диаграмма Тогда
		Рисунок.Высота = Рисунок.Высота * КУменьшения; //Уменьшаем..
	КонецЕсли;
КонецЦикла;

ПерваяСтрока = Цел(ДокументРезультат.ВысотаТаблицы * КУменьшения) + 1;
УдаляемаяОбласть = ДокументРезультат.Область("R" + XMLСтрока(ПерваяСтрока) +  
":R" + XMLСтрока(ДокументРезультат.ВысотаТаблицы));
ДокументРезультат.УдалитьОбласть(УдаляемаяОбласть, ТипСмещенияТабличногоДокумента.ПоВертикали);

При этом код работает если диаграмма выводится первой (используется высота табличного документа). Если диаграмма выводится отдельно, нужно или выводить ее в отдельный табличный документ, там корректировать и потом вставлять в результирующий документ или использовать более тонкий способ определения начала и конца диаграммы.

fixin

Программирую на 1С с 1999 года. В 1С просто Гений. В 2020 году ушел из офиса на вольные хлеба фриланса. Принимаю заказы.

Читайте также:

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *