하이퍼링크 일괄삭제

하이퍼링크 일괄삭제

 

Sub dhDeleteAllHyperLinks()
'워크북내에 있는 도형에 연결되어 있는 하이퍼링크 삭제
    Dim s As Object
    For Each s In Sheets
       s.Hyperlinks.Delete
    Next s
End Sub

Sub dhDeleteAllHyperLinks1()
'액티브시트에 있는 도형에 연결되어 있는 하이퍼링크 삭제
    Dim s As Shape
    For Each s In ActiveSheet.Shapes
       s.Hyperlink.Delete
    Next s
End Sub

 

Sub dhDeleteAllHyperLinks2()
'액티브시트에 있는 도형에 연결되어 있는 하이퍼링크 삭제
Dim s As Shape
On Error Resume Next
For Each s In ActiveSheet.Shapes
       s.Hyperlink.Delete
Next s
On Error GoTo 0
End Sub

 

'활성화된 시트의 하이퍼링크 일괄제거
'ActiveSheet.Hyperlinks.Delete

'워크북의 하이퍼링크 일괄제거
'Cells.Hyperlinks.Delete

 

하이퍼통합 문서1.xlsm

0.02MB

 

2022.08.03 - [엑셀] - HYPERLINK 연결과 HYPERLINK 함수

HYPERLINK 연결과 HYPERLINK 함수