Вторник, 26.09.2017, 19:13
Приветствую Вас Гость | RSS

DELPHI Report

Каталог статей Delphi Report

Главная » Статьи » MS Office (MS Word, MS Excel ) » MS Excel

2.4 Другие режимы отображения текста в ячейке


Угол, под которым текст отображается в ячейке, определяется свойством Orientation объекта Range. Значение Orientation может находиться в пределах от -90 до 90. Функция SetOrientation реализует эту возможность в приложениях Delphi.

Code:

Function SetOrientation (sheet:variant;range:string;

orientation:integer):boolean;

begin

SetOrientation:=true;

try

E.ActiveWorkbook.Sheets.Item[sheet].Range

  [range].Orientation:=orientation;

except

SetOrientation:=false;

end;

End;

 Текст, ширина которого больше ширины ячейки, может отображаться несколькими строками (переносом по словам) или одной строкой. Это свойство ячейки содержится в поле WrapText объекта Range. Функция SetWrapText изменяет это поле и режим отображения текста большой длины.

Code:

Function SetWrapText(sheet:variant;range:string;

WrapText:boolean):boolean;

begin

SetWrapText:=true;

try

E.ActiveWorkbook.Sheets.Item[sheet].Range

  [range].WrapText:=WrapText;

except

SetWrapText:=false;

end;

End;

 Можно использовать и альтернативный способ для размещения текста большой длины в ячейке. Он основан на автоподборе ширины текста под ширину ячейки. Свойство.ShrinkToFit объекта Range определяет этот режим отображения. Смотрите функцию SetShrinkToFit. Если установлен режим "перенос по словам", то действие этой функции отменяется.

Code:

Function SetShrinkToFit (sheet:variant;range:string;

ShrinkToFit:boolean):boolean;

begin

SetShrinkToFit:=true;

try

E.ActiveWorkbook.Sheets.Item[sheet].Range

  [range].ShrinkToFit:=ShrinkToFit;

except

SetShrinkToFit:=false;

end;

End;

 Несколько ячеек можно объединить. Для этой цели используется свойство MergeCells объекта Range[range], где range - область для объединения, например "A1:C2". Если в MergeCells записывает значение True, то это приводит к объединению ячеек. Для реализации в приложениях на Delphi используем функцию SetMergeCells.

Code:

Function SetMergeCells (sheet:variant;range:string;

MergeCells:boolean):boolean;

begin

SetMergeCells:=true;

try

E.ActiveWorkbook.Sheets.Item[sheet].Range

  [range].MergeCells:=MergeCells;

except

SetMergeCells:=false;

end;

End;

 

Далее

 

Категория: MS Excel | Добавил: delphi (01.09.2008)
Просмотров: 2018 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Меню сайта
Google
Форма входа
Категории раздела
MS Excel [22]MS Word [18]
Поиск
Друзья сайта
Статистика
Copyright MyCorp © 2017