122회
[API 기초 챌린지 #2] 왕초보를 위한 API 기초 배우기 - QR 코드 API 자동화 실습
강의노트
커리큘럼
댓글(0)
'오빠두엑셀'의 모든 Live 강의를
월 990원에 자유롭게 수강하세요!
'위캔두 멤버쉽' 가입하기
강의 자료
  • [라이브강의] API 기초 챌린지 #2 - 기초 실습 QR코드 만들기
    예제파일
완성파일은 영상 하단 댓글 링크를 확인해주세요.
버전 안내
이번 강의는 일부 버전에서 실습이 제한됩니다.
자세한 내용은 [관련자료]를 확인해주세요.
보충 자료
  1. 구글 QR 코드 API 링크
  2. xImage 함수 전체 명령문
    함수에 대한 자세한 설명은 관련 게시글을 참고해주세요!🙌

    Function xIMAGE(Link, Optional Margin As Long = 0, Optional UpdateImage As Boolean = True)
     
    '###############################################################
    '오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
    '수정 및 배포 시 출처를 반드시 명시해야 합니다.
     
    '■ xIMAGE 함수
    '■ 인터넷 URL 또는 특정 파일 경로의 이미지를 삽입합니다.
    '■ 사용방법
    '=xImage("https://www.google.com/images/branding/googlelogo/1x/googlelogo_color_272x92dp.png")
    '■ 인수 설명
    '_____________Link                  : 웹 URL 또는 파일 경로입니다. 웹 URL일 경우 링크는 반드시 https:// 또는 http:// 로 시작해야 합니다.
    '_____________Margin             : 셀 안에 삽입할 그림에 여백을 줍니다. 픽셀 단위로 입력합니다. 기본값은 0(=여백없음)입니다.
    '_____________UpdateImage   : TRUE 일 경우 기존 셀 안에 삽입되어 있던 그림을 삭제하고 새로운 그림으로 갱신합니다. 기본값은 TRUE 입니다.
    '###############################################################
     
    Dim aRng As Range: Dim aWS As Worksheet
    Dim shpImg As Shape
     
    On Error Resume Next
     
    Set aRng = Application.Caller
    Set aWS = aRng.Parent
     
    Application.EnableEvents = False
     
    If IsEmpty(Link) Then xIMAGE = CVErr(xlValue): Exit Function
     
    For Each shpImg In aWS.Shapes
        If shpImg.TopLeftCell.Address = aRng.Address Then
            If UpdateImage = True Then
                shpImg.Delete
            Else
                xIMAGE = True
                GoTo Final
                Exit Function
            End If
        End If
    Next
     
    Set shpImg = aWS.Shapes.AddPicture(Link, msoFalse, msoTrue, _
    aRng.Left + Margin, aRng.Top + Margin, _
    aRng.MergeArea.Width - Margin * 2, aRng.MergeArea.Height - Margin * 2)
    shpImg.Placement = xlMoveAndSize
     
    If shpImg Is Nothing Then
        xIMAGE = CVErr(xlValue)
    Else
        xIMAGE = True
    End If
     
    Final:
    Set shpImg = Nothing:    Set aRng = Nothing:    Set aWS = Nothing
    Application.EnableEvents = True
     
    End Function
시간대별 목차
0 댓글
Inline Feedbacks
모든 댓글 보기
강의노트
커리큘럼
'오빠두엑셀'의 모든 Live 강의를
월 990원에 자유롭게 수강하세요!
'위캔두 멤버쉽' 가입하기
강의 자료
  • [라이브강의] API 기초 챌린지 #2 - 기초 실습 QR코드 만들기
    예제파일
완성파일은 영상 하단 댓글 링크를 확인해주세요.
버전 안내
이번 강의는 일부 버전에서 실습이 제한됩니다.
자세한 내용은 [관련자료]를 확인해주세요.
보충 자료
  1. 구글 QR 코드 API 링크
  2. xImage 함수 전체 명령문
    함수에 대한 자세한 설명은 관련 게시글을 참고해주세요!🙌

    Function xIMAGE(Link, Optional Margin As Long = 0, Optional UpdateImage As Boolean = True)
     
    '###############################################################
    '오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
    '수정 및 배포 시 출처를 반드시 명시해야 합니다.
     
    '■ xIMAGE 함수
    '■ 인터넷 URL 또는 특정 파일 경로의 이미지를 삽입합니다.
    '■ 사용방법
    '=xImage("https://www.google.com/images/branding/googlelogo/1x/googlelogo_color_272x92dp.png")
    '■ 인수 설명
    '_____________Link                  : 웹 URL 또는 파일 경로입니다. 웹 URL일 경우 링크는 반드시 https:// 또는 http:// 로 시작해야 합니다.
    '_____________Margin             : 셀 안에 삽입할 그림에 여백을 줍니다. 픽셀 단위로 입력합니다. 기본값은 0(=여백없음)입니다.
    '_____________UpdateImage   : TRUE 일 경우 기존 셀 안에 삽입되어 있던 그림을 삭제하고 새로운 그림으로 갱신합니다. 기본값은 TRUE 입니다.
    '###############################################################
     
    Dim aRng As Range: Dim aWS As Worksheet
    Dim shpImg As Shape
     
    On Error Resume Next
     
    Set aRng = Application.Caller
    Set aWS = aRng.Parent
     
    Application.EnableEvents = False
     
    If IsEmpty(Link) Then xIMAGE = CVErr(xlValue): Exit Function
     
    For Each shpImg In aWS.Shapes
        If shpImg.TopLeftCell.Address = aRng.Address Then
            If UpdateImage = True Then
                shpImg.Delete
            Else
                xIMAGE = True
                GoTo Final
                Exit Function
            End If
        End If
    Next
     
    Set shpImg = aWS.Shapes.AddPicture(Link, msoFalse, msoTrue, _
    aRng.Left + Margin, aRng.Top + Margin, _
    aRng.MergeArea.Width - Margin * 2, aRng.MergeArea.Height - Margin * 2)
    shpImg.Placement = xlMoveAndSize
     
    If shpImg Is Nothing Then
        xIMAGE = CVErr(xlValue)
    Else
        xIMAGE = True
    End If
     
    Final:
    Set shpImg = Nothing:    Set aRng = Nothing:    Set aWS = Nothing
    Application.EnableEvents = True
     
    End Function
시간대별 목차
0
여러분의 생각을 댓글로 남겨주세요.x