Fügt ein klassisches XLS-Zeichnungstextfeld über 1-basierte Arbeitsblattanker hinzu und gibt das erstellte
TXLSTextBox-Objekt zurück
Syntax
function AddTextBox(AText: WideString; ARow1, ACol1, ARow2, ACol2: Integer): TXLSTextBox;
function AddTextBox(AText: WideString; ARange: WideString): TXLSTextBox;
Parameter
| AText |
Der im Textfeld gespeicherte Anfangstext |
| ARow1, ACol1 |
1-basierte Zeilen- und Spaltennummer des oberen linken Ankerpunkts |
| ARow2, ACol2 |
1-basierte Zeilen- und Spaltennummer des unteren rechten Ankerpunkts |
| ARange |
A1-Arbeitsblattbereich, z. B. C4:F8 |
Bemerkungen
AddTextBox ist eine Verknüpfungsmethode auf Arbeitsblattebene zum Erstellen von eigenständigen Zeichnungsformen über die Auflistung
Shapes des Arbeitsblatts
Diese Methode erstellt keine Zellenkommentare und fügt keinen Text an Zellen-Notiz-Datensätze an
Beispiel
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;
Siehe auch