Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > бага AutoFit в Excel??

Автор: AzuManga 4.7.2005, 21:08

Здравствуйте, коллеги 8))

Суть проблемы заключается в следующем - если объединить несколько ячеек и поместить в них большой текст, который растянет область по высоте, то применение к Rows данной области ячеек метода AutoFit высота области будет равной одному символу, а если не применять AutoFit, то высота области будет непомерно огромной 8((

Вот код объединения ячеек в область:

Код


  with ExcelApp.Range[topleft,bottomright] do
  begin
      HorizontalAlignment := alignment;
      VerticalAlignment := xlCenter;
      WrapText:= wrapping;
      Orientation := 0;
      ShrinkToFit := false;
      MergeCells := False;
      Merge(false);
  end;

вот код заполнения ячейки и установки авторазмера:

Код


  var_ := 'Суть проблемы заключается в следующем - если объединить несколько ячеек и поместить в них большой текст';
  ExcelApp.Range[topleft,topleft].Cells.Value2 := var_; 
  ExcelApp.Range[topleft,topleft].Rows.EntireRow.AutoFit;

Спасибо за внимание 8)