다음 예제는 설명에 'Microsoft' 단어가 포함된 링크에 대해 워크시트 1의
하이퍼링크를 삭제합니다
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 메서드를 사용하여 워크시트 또는 범위에서
하이퍼링크를 제거합니다
다음 예제는 워크시트 1에서
하이퍼링크를 삭제합니다
Workbook.Sheets[1].Hyperlinks.Delete;
다음 예제는 워크시트 1의 A1:F10 범위에서
하이퍼링크를 삭제합니다
Workbook.Sheets[1].Range['A1','F10'].Hyperlinks.Delete;