Използвайте свойството
Hyperlinks, за да върнете колекцията IXLSHyperlinks
Следващият пример изтрива
хипервръзките на Работен лист 1 за връзка, съдържаща думата „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;
Използвайте метода Delete, за да премахнете
хипервръзки от работен лист или диапазон
Следващият пример изтрива
хипервръзки от Работен лист 1
Workbook.Sheets[1].Hyperlinks.Delete;
Следващият пример изтрива
хипервръзки от диапазона A1:F10 на Работен лист 1
Workbook.Sheets[1].Range['A1','F10'].Hyperlinks.Delete;