Спасибо! Понравилась разработка, но цвет фона не переносится. Доработал обработку немного под себя. И так, что же я сделал:
1. Добавил функцию
Функция РГБ(ЦветRGB)
Перем Результат;
Результат = Новый Массив();
Red = ЦветRGB%256;
Green = (Цел(ЦветRGB/256))%256;
Blue = (Цел(ЦветRGB/65535))%256;
Возврат Новый Цвет(Red, Green, Blue);
КонецФункции
2. В процедуру КнопкаВыполнитьНажатие внес изменения
Font = ЯчЭксель.Font;
Яч1С.Шрифт = Новый Шрифт(Font.Name, Font.Size,Font.Bold, Font.Italic, (Font.Underline<>-4142),Font.StrikeThrough);
Яч1С.Текст = ЯчЭксель.Value;
Добавлено:
Яч1С.ЦветТекста = РГБ(Font.Color);
Добавил ниже этого:
Яч1С.РазмещениеТекста = ?(ЯчЭксель.WrapText,ТипРазмещенияТекстаТабличногоДокумента.Переносить, //переносить по словам
ТипРазмещенияТекстаТабличногоДокумента.Авто);
Вот это
ЦветФона = ЯчЭксель.Interior.Color;
Если ЦветФона <> 16777215 Тогда
Яч1С.ЦветФона = РГБ(ЦветФона);
КонецЕсли;
Еще добавил отступ и ориентацию текста:
Яч1С.Отступ = ЯчЭксель.IndentLevel; // отступ
Если ЯчЭксель.Orientation <> -4128 Тогда // угол текста
Яч1С.ОриентацияТекста = ЯчЭксель.Orientation;
КонецЕсли;
Если ЯчЭксель.HorizontalAlignment = -4131 Тогда
Яч1С.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Лево;
ИначеЕсли ЯчЭксель.HorizontalAlignment = -4108 Тогда
Яч1С.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
ИначеЕсли ЯчЭксель.HorizontalAlignment = -4152 Тогда
Яч1С.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Право;
ИначеЕсли ЯчЭксель.HorizontalAlignment = 5 Тогда
Яч1С.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Авто;
ИначеЕсли ЯчЭксель.HorizontalAlignment = -4130 Тогда
Яч1С.ГоризонтальноеПоложение = ГоризонтальноеПоложение.ПоШирине;
ИначеЕсли ЯчЭксель.HorizontalAlignment = 7 Тогда
Яч1С.ПоВыделеннымКолонкам = Истина;
ИначеЕсли ЯчЭксель.HorizontalAlignment = -4117 Тогда
Яч1С.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Авто;
КонецЕсли;
Если ЯчЭксель.VerticalAlignment = -4160 Тогда
Яч1С.ВертикальноеПоложение = ВертикальноеПоложение.Верх;
ИначеЕсли ЯчЭксель.VerticalAlignment = -4108 Тогда
Яч1С.ВертикальноеПоложение = ВертикальноеПоложение.Центр;
ИначеЕсли ЯчЭксель.VerticalAlignment = -4107 Тогда
Яч1С.ВертикальноеПоложение = ВертикальноеПоложение.Низ;
ИначеЕсли ЯчЭксель.VerticalAlignment = -4130 Тогда
Яч1С.ВертикальноеПоложение = ВертикальноеПоложение.Низ;
ИначеЕсли ЯчЭксель.VerticalAlignment = -4117 Тогда
Яч1С.ВертикальноеПоложение = ВертикальноеПоложение.Низ;
КонецЕсли;
Показать
