以下示例删除工作表一中描述里包含单词“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;
以下示例为单元格 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;