使用VBA代碼將圖像URL轉換為實際圖像
以下VBA代碼可以幫助您從圖片URL地址中快速提取實際圖片，請按以下步驟操作：
1。 按住 ALT + F11 鍵以打開“ Microsoft Visual Basic應用程序”窗口。
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
筆記：
- 1.在上面的代碼中，Set Rng = ActiveSheet.Range(“A2:A5”) ， A2：A5 是包含您要提取圖像的URL地址的單元格範圍，則應根據需要更改單元格引用。
- 2.Range(“A2”).Select ，裡面的A2是指圖片要放置的欄位並依序往下，可以改成其他位置
- 3.使用此代碼，您無法指定所需圖像的大小，但可以先把欄位高度拉高(例如拉到100px)，出來的圖片會稍微大一點。
- 4.上面的代碼只能將實際圖像提取到URL列之外的單元格中，您不能指定要輸出圖像的單元格。
- 5.您應該對代碼有一些基本的了解，如果任何字符丟失或不正確，則代碼將無法成功執行。
3。 然後按 F5 鍵以運行此代碼，並且所有對應的圖片都已從圖片網址中一次提取到相鄰列中，並且這些圖片將放置在您特定單元格的中心，請參見屏幕截圖：
使用Kutools for Excel將圖像URL轉換為實際圖像
安裝工具 Kutools for Excel
1。 點擊 庫工具 > 插入 > 插入圖片表格路徑（URL），在彈出的對話框中，設置操作
2。 然後，點擊 Ok 按鈕，圖片將從URL中提取