Dùng thuộc tính
Hyperlinks để trả về bộ sưu tập IXLSHyperlinks
Ví dụ sau xóa các
siêu liên kết trên Trang tính một cho một liên kết có từ 'Microsoft' trong phần mô tả
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;
Dùng phương thức Add để tạo siêu liên kết và thêm nó vào bộ sưu tập
Hyperlinks
Ví dụ sau tạo một siêu liên kết mới cho ô A8
With Workbook.Sheets[1] do begin
Hyperlinks.Add(Range['A8','A8'], 'https://www.loslab.com/HotXLS.html');
end;
Dùng phương thức Delete để xóa
siêu liên kết khỏi một Trang tính hoặc vùng
Workbook.Sheets[1].Hyperlinks.Delete;
Workbook.Sheets[1].Range['A1','F10'].Hyperlinks.Delete;