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