اضافه کردن جعبه متن ترسیمی کلاسیک XLS از طریق نقاط لنگر مبتنی بر 1 در کاربرگ و بازگرداندن شیء
TXLSTextBox ایجاد شده
نحو
function AddTextBox(AText: WideString; ARow1, ACol1, ARow2, ACol2: Integer): TXLSTextBox;
function AddTextBox(AText: WideString; ARange: WideString): TXLSTextBox;
پارامترها
| AText |
متن اولیه ذخیره شده در جعبه متن |
| ARow1, ACol1 |
شماره سطر و ستون نقطه لنگر گوشه بالا-چپ مبتنی بر 1 |
| ARow2, ACol2 |
شماره سطر و ستون نقطه لنگر گوشه پایین-راست مبتنی بر 1 |
| ARange |
محدوده کاربرگ به سبک A1، مانند C4:F8 |
توضیحات
AddTextBox یک متد میانبر در سطح کاربرگ است که برای ایجاد شکل ترسیمی مستقل از طریق مجموعه
Shapes در کاربرگ استفاده میشود
این متد توضیح سلولی ایجاد نمیکند و متن را به رکورد یادداشت سلول ضمیمه نمیکند
مثال
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;
همچنین ببینید