엑셀 웹 이미지 삽입 :: 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 imgWidth > 0 Then W = imgWidth Else W = targetRng.Width - 6
If 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