เพิ่มกล่องข้อความการวาด 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;
ดูเพิ่มเติม