Használja a
Hyperlinks tulajdonságot az IXLSHyperlinks gyűjtemény visszaadásához
A következő példa törli az 1. munkalapon lévő
hiperhivatkozásokat azon hivatkozásoknál, amelyek leírásában a "Microsoft" szó szerepel
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;
Használja az Add metódust hiperhivatkozás létrehozásához és a
Hyperlinks gyűjteményhez való hozzáadásához
A következő példa új hiperhivatkozást hoz létre az A8 cellához
With Workbook.Sheets[1] do begin
Hyperlinks.Add(Range['A8','A8'], 'https://www.loslab.com/HotXLS.html');
end;
Használja a Delete metódust
hiperhivatkozások eltávolításához egy munkalapról vagy tartományból
Workbook.Sheets[1].Hyperlinks.Delete;
Workbook.Sheets[1].Range['A1','F10'].Hyperlinks.Delete;