하이퍼링크 일괄삭제
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
2022.08.03 - [엑셀] - HYPERLINK 연결과 HYPERLINK 함수
HYPERLINK 연결과 HYPERLINK 함수
HYPERLINK 연결과 HYPERLINK 함수 하이퍼링크 삽입 1. 하이퍼링크를 삽입할 셀을 선택합니다. 2. 삽입으로 이동하여 링크를 선택하고 링크 삽입을 선택하거나 Ctrl+K를 누릅니다. 3. 필요한 세부 정보
labellota.tistory.com
'VBA' 카테고리의 다른 글
닫힌 다각형의 내부점인지 외부점인지 확인하는 방법 (0) | 2023.01.12 |
---|---|
RSA Example with Excel (0) | 2022.12.05 |
Maclauric Seires for Exp(x) (0) | 2022.07.12 |
Excel VBA Dictionary (0) | 2022.06.21 |
엑셀 VBA 설정 (0) | 2022.06.21 |