@벼리되어라님 Sub 연습()
'


Option Explicit

Sub bring_Picture_From_URL()

Dim URL As String '각 URL 주소를 넣을 변수
Dim r As Long '행을 하나씩 늘려갈 변수

r = 1
Do '다음을 실행
URL = Cells(r, 6).Value '각 셀의 값을 URL에 변수에 넣음
On Error Resume Next '에러 발생해도 다음코드 진행
ActiveSheet.Pictures.Insert(URL).Select 'URL 주소에 있는 각 그림을 삽입함

If Err <> 0 Then '(만약 주소가 잘못되어) 에러 발생하면
Err.Clear '발생한 에러를 제거
On Error GoTo 0 '에러 검출기능 복원
GoTo errHandler '에러처리 위치로 이동
End If

With Selection '선택된 그림에서 작업
.ShapeRange.LockAspectRatio = msoFalse '가로세로 비율고정 해제
.Left = Cells(r, 1).Left + 2 '사진 왼쪽위치
.Top = Cells(r, 1).Top + 2 '사진 윗쪽 위치
.Height = Cells(r, 1).Height - 4 '사진 높이
.Width = Cells(r, 1).Width - 4 '사진 너비

End With
errHandler:

r = r + 1 '행을 하나씩 늘려감
Loop Until Cells(r, 6) = vbNullString
End Sub



----
찾았네요... ㅎㅎ 참고해보세요~

@별이되어줘님 오~감사합니다