Use la propiedad
Hyperlinks para devolver la colección IXLSHyperlinks
El siguiente ejemplo elimina los
hipervínculos de la Hoja de cálculo uno que contienen la palabra 'Microsoft' en la descripción
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;
Use el método Add para crear un hipervínculo y añadirlo a la colección
Hyperlinks
El siguiente ejemplo crea un nuevo hipervínculo para la celda A8
With Workbook.Sheets[1] do begin
Hyperlinks.Add(Range['A8','A8'], 'https://www.loslab.com/HotXLS.html');
end;
Use el método Delete para eliminar
hipervínculos de una hoja de cálculo o rango
El siguiente ejemplo elimina
hipervínculos de la Hoja de cálculo uno
Workbook.Sheets[1].Hyperlinks.Delete;
El siguiente ejemplo elimina
hipervínculos del rango A1:F10 de la Hoja de cálculo uno
Workbook.Sheets[1].Range['A1','F10'].Hyperlinks.Delete;