Используйте свойство
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;
Используйте метод Delete для удаления
гиперссылок с листа или из диапазона
Workbook.Sheets[1].Hyperlinks.Delete;
Следующий пример удаляет
гиперссылки из диапазона A1:F10 на первом листе
Workbook.Sheets[1].Range['A1','F10'].Hyperlinks.Delete;