Voegt een klassiek XLS tekeningstekstvak toe via een op 1 gebaseerd werkbladanker en retourneert het gemaakte
TXLSTextBox object
Syntaxis
function AddTextBox(AText: WideString; ARow1, ACol1, ARow2, ACol2: Integer): TXLSTextBox;
function AddTextBox(AText: WideString; ARange: WideString): TXLSTextBox;
Parameters
| AText |
Initiële tekst opgeslagen in het tekstvak |
| ARow1, ACol1 |
Op 1 gebaseerde rij- en kolomnummer voor het linkerbovenanker |
| ARow2, ACol2 |
Op 1 gebaseerde rij- en kolomnummer voor het rechteronderanker |
| ARange |
A1-stijl werkbladbereik, bijvoorbeeld C4:F8 |
Opmerkingen
AddTextBox is een snelle methode op werkbladniveau om onafhankelijke tekenvormen te maken via de
Shapes collectie van het werkblad
Deze methode maakt geen celinvoegnotitie en voegt geen tekst toe aan de celnotitierecords
Voorbeeld
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;
Zie ook