Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: ActiveX/СОМ/CORBA > Перенос текста в ячейке Excel


Автор: kwotz 6.4.2007, 19:34
Хай! Хочу переносить текст по словам в ячейке, но не выходит в чем м.б. проблема?

Код

 XL.WorkBooks[1].WorkSheets[1].Rows[1].Font.Bold := True;
  XL.WorkBooks[1].WorkSheets[1].Rows[1].Font.Color := clBlack;
  XL.WorkBooks[1].WorkSheets[1].Rows[1].Font.Size := 14;
  XL.WorkBooks[1].WorkSheets[1].Rows[1].Font.Name := 'Times New Roman';
  XL.WorkBooks[1].WorkSheets[1].Cells[1, 3] := 'Информация об организации выплачивающих заработную плату работникам...';
  XL.WorkBooks[1].WorkSheets[1].Cells[1,1].WrapText:=true;

Автор: F19 9.4.2007, 16:23
А если сначала выделить ячейку(ки) Excel.ActiveWorkBook.ActiveSheet.Range[A1].Select;
А затем сделать Excel.Selection.WrapText:=true; , то должно получиться.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)