Другие режимы отображения текста в ячейке Excel
Falk0ner, вс, 06/07/2008 - 15:35.
Несколько ячеек можно объединить. Для этой цели используется свойство MergeCells объекта Range[range], где range - область для объединения, например "A1:C2". Если в MergeCells записывает значение True, то это приводит к объединению ячеек. Для реализации в приложениях на Delphi используем функцию SetMergeCells.
Другие режимы отображения текста в ячейке Excel Другие режимы отображения текста в ячейке Угол, под которым текст отображается в ячейке, определяется свойством Orientation объекта Range. Значение Orientation может находиться в пределах от -90 до 90. Функция SetOrientation реализует эту возможность в приложениях Delphi.
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;
orientation:integer):boolean;
begin
SetOrientation:=true;
try
E.ActiveWorkbook.Sheets.Item[sheet].Range
[range].Orientation:=orientation;
except
SetOrientation:=false;
end;
End;
Текст, ширина которого больше ширины ячейки, может отображаться несколькими строками (переносом по словам) или одной строкой. Это свойство ячейки содержится в поле WrapText объекта Range. Функция SetWrapText изменяет это поле и режим отображения текста большой длины.
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;
WrapText:boolean):boolean;
begin
SetWrapText:=true;
try
E.ActiveWorkbook.Sheets.Item[sheet].Range
[range].WrapText:=WrapText;
except
SetWrapText:=false;
end;
End;
Можно использовать и альтернативный способ для размещения текста большой длины в ячейке. Он основан на автоподборе ширины текста под ширину ячейки. Свойство.ShrinkToFit объекта Range определяет этот режим отображения. Смотрите функцию SetShrinkToFit. Если установлен режим "перенос по словам", то действие этой функции отменяется.
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;
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.
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;
MergeCells:boolean):boolean;
begin
SetMergeCells:=true;
try
E.ActiveWorkbook.Sheets.Item[sheet].Range
[range].MergeCells:=MergeCells;
except
SetMergeCells:=false;
end;
End;
Отправить комментарий