엑셀 웹 이미지 삽입 :: InsertWebImage 명령문

웹 이미지를 시트 위로 삽입하는 InsertWebImage 명령문의 사용법 및 동작원리를 살펴봅니다.

홈페이지 » 엑셀 웹 이미지 삽입 :: InsertWebImage 명령문

엑셀 웹 이미지 삽입 :: InsertWebImage 명령문 사용법 총정리

엑셀 InsertWebImage 명령문 목차 바로가기
요약

온라인 상의 이미지를 엑셀 시트위로 삽입하는 사용자 지정 함수입니다.

명령문 구문
= InsertWebImage ( 셀, URL링크, [너비], [높이] )
사용된 인수 및 변수 알아보기
인수설명

[Range]
웹 이미지를 삽입할 셀 입니다.
URL링크
[String]
웹 이미지의 URL 주소 입니다.
너비
[Double, 선택인수]
이미지의 너비를 point 단위로 지정합니다. 기본값은 셀의 너비입니다.
높이
[Double, 선택인수]
이미지의 높이를 point 단위로 지정합니다. 기본값은 셀의 높이입니다.

예제파일 다운로드

상세 설명

엑셀 InsertWebImage 함수는 웹 이미지를 엑셀 시트 위로 삽입하는 엑셀 사용자 지정 함수입니다. 최근 사용되는 대부분의 브라우저 (크롬(Chrome), 엣지(Edge), 파이어폭스(FireFox) 등..)은 끌어서놓기 (Drag&Drop) 으로 웹 이미지를 손쉽게 삽입할 수 있습니다.

하지만 셀 크기에 맞춰 이미지를 삽입하거나 특정 URL의 이미지를 반복하여 삽입해야 할 경우 InserWebImage 함수로 업무의 상당부분을 자동화 할 수 있습니다.

실전 사용 예제
  1. 특정 URL 이미지를 시트 A1셀에 삽입하기
    InsertWebImage Sheet1.Range("A1"),"https://www.google.com/images/branding/googlelogo/1x/googlelogo_color_272x92dp.png"
    ' 구글 로고 이미지를 A1셀에 삽입합니다.
  2. 특정 URL 이미지를 가로너비/세로높이를 지정하여 삽입하기
    InsertWebImage Sheet1.Range("A1"),"https://www.google.com/images/branding/googlelogo/1x/googlelogo_color_272x92dp.png",100,100
    ' 구글 로고 이미지를 가로/세로 100point의 정사각형으로 삽입합니다.

엑셀 온라인 이미지 삽입, InsertWebImage 명령문 동작원리

InsertWebImage 명령문 전체 코드
Sub InsertWebImage(targetRng As Range, ImgLink As String, Optional imgWidth As Double, Optional imgHeight As Double)
 
'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'▶ InsertWebImage 함수
'▶ 웹 이미지를 셀 위에 삽입합니다.
'▶ 인수 설명
'_____________targetRng                              : 이미지를 삽입할 셀입니다.
'_____________imgLink                                 : 삽입할 이미지 링크입니다.
'_____________imgWidth                             : 이미지 너비입니다. 기본값은 셀의 너비입니다. (선택인수)
'_____________imgHeight                            : 이미지 높이입니다. 기본값은 셀의 높이입니다. (선택인수)
'▶ 사용 예제
'InsertWebImage sheet1.Range("A1"),"https://www.google.com/images/branding/googlelogo/1x/googlelogo_color_272x92dp.png"
'###############################################################
 
Dim WS As Worksheet
Dim shp As Shape
Dim W As Double: Dim H As Double
 
Set WS = targetRng.Parent
If IsMissing(imgWidth) > 0 Then W = imgWidth Else W = targetRng.Width - 6
If IsMissing(imgHeight) > 0 Then H = imgHeight Else H = targetRng.Height - 6
 
Set shp = WS.Shapes.AddPicture(ImgLink, msoFalse, msoTrue, targetRng.Left + 3, targetRng.Top + 3, W, H)
 
End Sub
명령문 동작원리 단계별 알아보기
  1. 변수를 선언합니다.
    Dim WS As Worksheet
    Dim shp As Shape
    Dim W As Double: Dim H As Double
     
    Set WS = targetRng.Parent
  2. 이미지 너비 및 높이를 설정합니다.
    If IsMissing(imgWidth) > 0 Then W = imgWidth Else W = targetRng.Width - 6
    If IsMissing(imgHeight) > 0 Then H = imgHeight Else H = targetRng.Height - 6
  3. 엑셀 웹 이미지 삽입 후 명령문을 종료합니다.
    Set shp = WS.Shapes.AddPicture(ImgLink, msoFalse, msoTrue, targetRng.Left + 3, targetRng.Top + 3, W, H)
guest
0 댓글
Inline Feedbacks
모든 댓글 보기
0
여러분의 생각을 댓글로 남겨주세요.x