Угол, под которым
текст отображается в ячейке, определяется свойством 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;
