ใช้คุณสมบัติ
Hyperlinks เพื่อคืนค่าคอลเลกชัน IXLSHyperlinks
ตัวอย่างต่อไปนี้ลบ
ไฮเปอร์ลิงก์บนแผ่นงานหนึ่งสำหรับลิงก์ที่มีคำว่า 'Microsoft' ในคำอธิบาย
With Workbook.Sheets[1] do begin
if Hyperlinks.Count > 0 then begin
for i := Hyperlinks.Count downto 1 do begin
if Pos('Microsoft', Hyperlinks[i].Description) > 0 then
Hyperlinks[i].Delete;
end;
end;
end;
ใช้เมธอด Add เพื่อสร้างไฮเปอร์ลิงก์และเพิ่มลงในคอลเลกชัน
Hyperlinks
ตัวอย่างต่อไปนี้สร้างไฮเปอร์ลิงก์ใหม่สำหรับเซลล์ A8
With Workbook.Sheets[1] do begin
Hyperlinks.Add(Range['A8','A8'], 'https://www.loslab.com/HotXLS.html');
end;
Workbook.Sheets[1].Hyperlinks.Delete;
ตัวอย่างต่อไปนี้ลบ
ไฮเปอร์ลิงก์ออกจากช่วง A1:F10 บนแผ่นงานหนึ่ง
Workbook.Sheets[1].Range['A1','F10'].Hyperlinks.Delete;