이미지 URL을 Excel에서 실제 이미지로 변환하는 방법은 무엇입니까?

A 열에 이미지 URL 주소 목록이 있고 이제 URL에서 해당 사진을 다운로드하여 왼쪽 스크린 샷과 같이 인접한 B 열에 표시하려고합니다. Excel에서 이미지 URL에서 실제 그림을 어떻게 빠르고 쉽게 추출 할 수 있습니까?

VBA 코드를 사용하여 이미지 URL을 실제 이미지로 변환

Excel 용 Kutools를 사용하여 이미지 URL을 실제 이미지로 변환

VBA 코드를 사용하여 이미지 URL을 실제 이미지로 변환

다음 VBA 코드는 이미지 URL 주소에서 실제 이미지를 빠르게 추출하는 데 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 누르고 ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니 다.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여 넣습니다.

VBA 코드 : 이미지 URL을 실제 이미지로 변환 :

Sub URLPictureInsert()
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub

3. 그런 다음 F5 이 코드를 실행하려면 해당하는 모든 사진이 이미지 URL에서 인접한 열로 한 번에 추출되었으며 이미지는 특정 셀의 중앙에 배치됩니다. 스크린 샷을 참조하십시오.

Excel 용 Kutools를 사용하여 이미지 URL을 실제 이미지로 변환

VBA 코드에 익숙하지 않거나 위 코드의 제한 사항을 수정하려면 Excel 용 Kutools's 그림 삽입 경로 (URL) 기능을 사용하면 아래 스크린 샷과 같이 컴퓨터의 URL 주소 또는 특정 경로를 기반으로 cprresponding 이미지를 빠르게 삽입 할 수 있습니다. Excel 용 Kutools를 다운로드하려면 클릭하십시오!

설치 후 Excel 용 Kutools, 다음과 같이하십시오.

1. 딸깍 하는 소리 쿠툴 > 끼워 넣다 > 그림 삽입 경로 (URL), 팝업 대화 상자에서 다음 작업을 설정하십시오. 스크린 샷을 참조하십시오.

2. 그런 다음 Ok 버튼을 클릭하면 사진이 URL에서 추출됩니다. 스크린 샷 참조 :

Excel 용 Kutools를 지금 다운로드하고 무료로 평가하려면 클릭하십시오!