如何在Excel中將圖像URL轉換為實際圖像?
如果現在在A列中有一個圖像URL地址列表,那麼您想從URL下載相應的圖片,並將它們顯示在相鄰的B列中,如左圖所示。 在Excel中,如何快速,輕鬆地從圖像URL中提取實際圖片?
使用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.在上面的代碼中, A2:A5 是包含您要提取圖像的URL地址的單元格範圍,則應根據需要更改單元格引用。
- 2.使用此代碼,您無法指定所需圖像的大小。
- 3.上面的代碼只能將實際圖像提取到URL列之外的單元格中,您不能指定要輸出圖像的單元格。
- 4.您應該對代碼有一些基本的了解,如果任何字符丟失或不正確,則代碼將無法成功執行。
3。 然後按 F5 鍵以運行此代碼,並且所有對應的圖片都已從圖片網址中一次提取到相鄰列中,並且這些圖片將放置在您特定單元格的中心,請參見屏幕截圖:
使用Kutools for Excel將圖像URL轉換為實際圖像
如果您不熟悉VBA代碼或想彌補上述代碼的局限性, Excel的Kutools's 插入圖片表格路徑(URL) 此功能可幫助您根據計算機中的URL地址或特定路徑快速插入對應的圖像,如下圖所示。 點擊下載Kutools for Excel!
備註:要應用此 插入圖片表格路徑(URL),首先,您應該下載 Excel的Kutools,然後快速輕鬆地應用該功能。
安裝後 Excel的Kutools,請這樣做:
1。 點擊 庫工具 > 插入 > 插入圖片表格路徑(URL),在彈出的對話框中,請設置以下操作,請參見屏幕截圖:
2。 然後,點擊 Ok 按鈕,圖片將從URL中提取,請參見屏幕截圖:
最佳辦公生產力工具
🤖 | Kutools 人工智慧助手:基於以下內容徹底改變數據分析: 智慧執行 | 生成代碼 | 建立自訂公式 | 分析數據並產生圖表 | 呼叫 Kutools 函數... |
熱門特色: 尋找、突出顯示或識別重複項 | 刪除空白行 | 合併列或儲存格而不遺失數據 | 沒有公式的回合 ... | |
超級查詢: 多條件VLookup | 多值VLookup | 跨多個工作表的 VLookup | 模糊查詢 .... | |
高級下拉列表: 快速建立下拉列表 | 依賴下拉列表 | 多選下拉列表 .... | |
欄目經理: 新增特定數量的列 | 移動列 | 切換隱藏列的可見性狀態 | 比較範圍和列 ... | |
特色功能: 網格焦點 | 設計圖 | 大方程式酒吧 | 工作簿和工作表管理器 | 資源庫 (自動文字) | 日期選擇器 | 合併工作表 | 加密/解密單元格 | 按清單發送電子郵件 | 超級濾鏡 | 特殊過濾器 (過濾粗體/斜體/刪除線...)... | |
前 15 個工具集: 12 文本 工具 (添加文本, 刪除字符,...) | 50+ 圖表 類型 (甘特圖,...) | 40+ 實用 公式 (根據生日計算年齡,...) | 19 插入 工具 (插入二維碼, 從路徑插入圖片,...) | 12 轉化 工具 (數字到單詞, 貨幣兌換,...) | 7 合併與拆分 工具 (高級合併行, 分裂細胞,...) | ... 和更多 |
使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。 點擊此處獲取您最需要的功能...
Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆
- 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
- 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
- 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
Sort comments by
#37024
This comment was minimized by the moderator on the site
0
0
#36073
This comment was minimized by the moderator on the site
Report
0
0
#36074
This comment was minimized by the moderator on the site
0
0
#35260
This comment was minimized by the moderator on the site
0
0
#34830
This comment was minimized by the moderator on the site
Report
0
0
#34829
This comment was minimized by the moderator on the site
0
0
#34726
This comment was minimized by the moderator on the site
0
0
#34727
This comment was minimized by the moderator on the site
Report
0
0
#34728
This comment was minimized by the moderator on the site
0
0
#34729
This comment was minimized by the moderator on the site
Report
0
0
#34717
This comment was minimized by the moderator on the site
0
0
#34718
This comment was minimized by the moderator on the site
Report
0
0
#34636
This comment was minimized by the moderator on the site
0
0
#33641
This comment was minimized by the moderator on the site
0
0
#33616
This comment was minimized by the moderator on the site
0
0
There are no comments posted here yet