Utilisez la propriété
Hyperlinks pour retourner la collection IXLSHyperlinks
L'exemple suivant supprime les
liens hypertexte de la feuille de calcul 1 pour un lien contenant le mot « Microsoft » dans la description
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;
Utilisez la méthode Add pour créer un lien hypertexte et l'ajouter à la collection
Hyperlinks
L'exemple suivant crée un nouveau lien hypertexte pour la cellule A8
With Workbook.Sheets[1] do begin
Hyperlinks.Add(Range['A8','A8'], 'https://www.loslab.com/HotXLS.html');
end;
Utilisez la méthode Delete pour supprimer des
liens hypertexte d'une feuille de calcul ou d'une plage
Workbook.Sheets[1].Hyperlinks.Delete;
L'exemple suivant supprime des
liens hypertexte de la plage A1:F10 de la feuille de calcul 1
Workbook.Sheets[1].Range['A1','F10'].Hyperlinks.Delete;