<κλάση header="doc-nav" aria-label="Πλοήγηση τεκμηρίωσης"> Τεκμηρίωση HotXLS <κλάση nav="doc-links"> Περιεχόμενα Αρχική Επισκόπηση TXLSWorksheet <κλάση div="nav topic-quick-nav" aria-label="Topic shortcuts"> Αρχική Περιεχόμενα Επισκόπηση

AddTextBox μέθοδος

<κλάση div="indent"> <κλάση div="txt"> Adds a classic XLS drawing text box by one-based worksheet anchors and returns the created TXLSTextBox object

Σύνταξη

<κλάση pre="code"> function AddTextBox(AText: WideString; ARow1, ACol1, ARow2, ACol2: Integer): TXLSTextBox; function AddTextBox(AText: WideString; ARange: WideString): TXLSTextBox;

Παράμετροι

<κλάση table="synd"> <κλάση td="syni">AText <κλάση td="synid">Initial text stored in the text box <κλάση td="syni">ARow1, ACol1 <κλάση td="synid">One-based row and column for the upper-left anchor <κλάση td="syni">ARow2, ACol2 <κλάση td="synid">One-based row and column for the lower-right anchor <κλάση td="syni">ARange <κλάση td="synid">A1-style worksheet range such as C4:F8

Παρατηρήσεις

<κλάση div="txt"> AddTextBox is a worksheet-level shortcut for creating a standalone drawing shape through the worksheet Shapes collection <κλάση div="txt"> The method does not create a cell comment and does not attach text to a cell note record

Παράδειγμα

<κλάση pre="code"> 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;

AddTextBox μέθοδος

Σύνταξη

Παράμετροι

Παρατηρήσεις

Παράδειγμα

Δείτε επίσης