Добавя класическо XLS текстово поле за рисуване чрез базирани на 1 точки за прикрепване в работния лист и връща създадения обект
TXLSTextBox
Синтаксис
function AddTextBox(AText: WideString; ARow1, ACol1, ARow2, ACol2: Integer): TXLSTextBox;
function AddTextBox(AText: WideString; ARange: WideString): TXLSTextBox;
Параметри
| AText |
Началният текст, съхранен в текстовото поле |
| ARow1, ACol1 |
Базирани на 1 ред и колона на горната лява точка за прикрепване |
| ARow2, ACol2 |
Базирани на 1 ред и колона на долната дясна точка за прикрепване |
| ARange |
Обхват на работен лист в стил A1, например C4:F8 |
Описание
AddTextBox е кратък метод на ниво работен лист за създаване на независими форми за рисуване чрез колекцията
Shapes на работния лист
Този метод не създава бележка към клетка и не добавя текст към записа на бележката към клетката
Пример
var
TextBox: TXLSTextBox;
begin
TextBox := Workbook.Sheets[1].AddTextBox(
'Standalone note',
2, 3,
5, 7);
TextBox.Fill.ForeColor.RGB := $00FFFF;
TextBox := Workbook.Sheets[1].AddTextBox(
'Range note',
'C4:F8');
end;
Вижте също