10. 하이퍼링크 삭제

자료다운로드 : 오튜공구함010.xls 

안녕하세요 오튜가족 여러분

오늘은 하이퍼링크를 삭제하는 기능을 추가하려고 합니다. 하이퍼링크를 삭제하기 전에 참고로 만드는 방법을 살펴보죠(참고로 오피스97버전을 기준으로 설명합니다) 매크로 기록기를 사용하여 하이퍼링크를 추가하면 다음과 같은 코드를 볼 수 있습니다. 

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
http://www.officetutor.co.kr/ 

현재시트의 하이퍼링크개체에서 Add메소드를 사용하여 추가하는데, 하이퍼링크를 추가하기 위한 정보는 Anchor와 Address 입니다. Anchor는 하이퍼링크를 가지는 부분이고 Address는 하이퍼링크의 대상입니다. 물론 Anchor는 Range 또는 Shape개체를 지정해야 하며, Address 는 문자열로서 인터넷주소, 메일주소, 문서의 위치 등이 될 수 있습니다. 도움말을 찾아보니 재미있는 예제가 있군요. 한번 볼까요!

                  For Each h in Worksheets(1).Hyperlinks
                       If Instr(h.Name, "microsoft") <> 0 Then h.Follow
                  Next

위의 예는 1번 워크시트내의 모든 하이퍼링크를 각각 검사하여 "microsoft"라는 단어를 가지면 Follow메소드를 사용하여 해당URL로 이동하는 예입니다. 이제 하이퍼링크를 삭제해보도록 합시다. 위의 코드를 기반으로 아래와 같이 Delete메소드를 사용하면 될 것 같습니다.

                 Sub DeleteHyperLink()
                          Dim h As Hyperlink

                          For Each h In ActiveSheet.Hyperlinks
                                    h.Delete
                          Next
                End Sub

매우 간단합니다. 여기에 기능을 더욱 부가하자면 MsgBox함수를 사용하여 일일이 사용자의 확인을 받게 할 수도 있죠. 

오늘은 여기까지입니다. 

목차 | 이전 | 다음