Tilføjer en klassisk XLS-tegningstekstboks via 1-baserede regnearksankre og returnerer den oprettede
TXLSTextBox object
Syntaks
function AddTextBox(AText: WideString; ARow1, ACol1, ARow2, ACol2: Integer): TXLSTextBox;
function AddTextBox(AText: WideString; ARange: WideString): TXLSTextBox;
Parametre
| AText |
Initial text stored in the text box |
| ARow1, ACol1 |
One-based row and column for the upper-left anchor |
| ARow2, ACol2 |
One-based row and column for the lower-right anchor |
| ARange |
A1-style worksheet range such as C4:F8 |
Bemærkninger
AddTextBox er en genvej på regnearksniveau til at oprette en selvstændig tegningsshape via regnearkets
Shapes collection
Metoden opretter ikke en cellekommentar og knytter ikke tekst til en cellenote-record
Eksempel
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;
Se også