Другие режимы отображения текста в ячейке Excel |
Previous Top Next |
Другие режимы отображения текста в ячейке
Угол, под которым текст отображается в ячейке, определяется свойством 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; |