إضافة مربع نص رسومي لـ 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;
انظر أيضاً