Adaugă o casetă de text de desen XLS clasică prin puncte de ancorare în foaia de lucru bazate pe 1 și returnează obiectul
TXLSTextBox creat
Sintaxă
function AddTextBox(AText: WideString; ARow1, ACol1, ARow2, ACol2: Integer): TXLSTextBox;
function AddTextBox(AText: WideString; ARange: WideString): TXLSTextBox;
Parametri
| AText |
Textul inițial stocat în caseta de text |
| ARow1, ACol1 |
Numărul rândului și coloanei pentru punctul de ancorare din stânga sus, bazate pe 1 |
| ARow2, ACol2 |
Numărul rândului și coloanei pentru punctul de ancorare din dreapta jos, bazate pe 1 |
| ARange |
Interval al foii de lucru în stil A1, de exemplu C4:F8 |
Observații
AddTextBox este o metodă rapidă la nivel de foaie de lucru pentru crearea unei forme de desen independente prin intermediul colecției
Shapes a foii de lucru
Această metodă nu creează un comentariu de celulă și nu atașează textul la înregistrarea de note a celulei
Exemplu
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;
Consultați și