본문으로 바로가기

이거 편하네요.

 

 

매크로 작성 및 이용 방법

 

(옵션) 하이퍼링크가 있는 컬럼 전체 선택

Alt+F11 VBA 창 띄움

도구 > 매크로 만들기 > 매크로 내용 입력

화살표 매크로 실행

 

텍스트에서 링크 추출 소스

출처: http://www.seobangnim.com/zbxe/136001 

 

Sub 주소추출()
On Error Resume Next
Dim rngCell As Range
Dim lnkLink As Hyperlink

For Each lnkLink In ActiveSheet.Hyperlinks
With lnkLink.Parent
.Offset(0, 1) = .Hyperlinks.Item(1).Address
End With
Next lnkLink
End Sub

 

 

이미지에서 링크 추출 소스  (선택 영역에 링크 값이 있으면 텍스트로 덮어씀)

출처: http://excel.tips.net/T002907_Extracting_URLs_from_Hyperlinked_Images.html

 

Sub ConvertHLShapes()
    Dim shp As Shape
    Dim sTemp As String

    For Each shp In ActiveSheet.Shapes
        sTemp = ""
        On Error Resume Next 'go to next shape if no hyperlink
        sTemp = shp.Hyperlink.Address
        On Error GoTo 0
        If sTemp <> "" Then
            shp.TopLeftCell.Value = sTemp
            shp.Delete
        End If
    Next
End Sub

 

 

이미지에서 링크 추출 소스  (단 이미지를 다 찾아서 하니까, 이미지 링크 있는거만 따로 복사해서, 별도 시트에서 진행필요

 

Sub KIHyperLink()
    Dim lnk As Hyperlink
    Dim i As Integer

    For Each lnk In ActiveSheet.Hyperlinks
        i = i + 1
        Cells(i, 1).Value = lnk.Address
    Next

End Sub

 

 

 

 


댓글을 달아 주세요

  1. CreBan 2015.02.09 18:36 신고

    울 나라에는 잘 없는데, 외국에는 팁이 있는 듯한 느낌은 뭐지 ;;

    http://howtouseexcel.net/how-to-extract-a-url-from-a-hyperlink-on-excel
    http://howtouseexcel.net/how-to-extract-a-url-from-a-hyperlinked-image-graphic-or-icon-on-excel