VPF::бага AutoFit в Excel?? - Форум программистов

AzuManga

Дата 4.7.2005, 21:08 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 168
Регистрация: 12.5.2005

Репутация: нет
Всего: нет

Здравствуйте, коллеги 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)

--------------------

Точка с запятой;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »