Utilize a propriedade
Hyperlinks para devolver a colecção IXLSHyperlinks
O exemplo seguinte elimina as
hiperligações na folha de cálculo um para uma ligação que contenha a palavra 'Microsoft' na descrição
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;
Utilize o método Add para criar uma hiperligação e adicioná-la à colecção
Hyperlinks
O exemplo seguinte cria uma nova hiperligação para a célula A8
With Workbook.Sheets[1] do begin
Hyperlinks.Add(Range['A8','A8'], 'https://www.loslab.com/HotXLS.html');
end;
Utilize o método Delete para remover
hiperligações de uma Folha de Cálculo ou intervalo
Workbook.Sheets[1].Hyperlinks.Delete;
O exemplo seguinte elimina
hiperligações do intervalo A1:F10 na folha de cálculo um
Workbook.Sheets[1].Range['A1','F10'].Hyperlinks.Delete;