excel如何將超鏈接圖片變成圖片

『壹』 excel表中，如何將圖片鏈接批量變成縮略圖

1、打開excel。

『貳』 將表格中圖片超鏈接顯示為圖片

選擇單元格，插入超鏈接。 注意表格和文件圖片最好在同一個文件夾 拷貝的時候直接拷貝文件夾，這要不容易造成鏈接丟失或者失效。 建議將圖片插入到excel的一個工作表中，直接在表裡面進行連接，該工作表可以設置為隱藏。

『叄』 EXCEL表格中的圖片都是一個個超鏈接網址，怎麼讓其批量轉換成圖片的方式顯示，除了批量下載在一個個

圖片是個URL需要在 Excel 中直接顯示圖片，用VBA腳本能夠實現，具體編輯方法如下：

1、環活動工作表中的各個超鏈接，如果是jpg或gif圖片，不是可以通過正則來判斷。

『肆』 怎麼把Excel的圖片鏈接轉換成可視的圖片

打開Excel後在查看「宏」里新建一個宏會彈出VB編輯器（或直接打開VB編輯器），輸入以下代碼並運行該代碼：
Sub LoadImage()

Dim HLK As Hyperlink, Rng As Range
For Each HLK In ActiveSheet.Hyperlinks '循環活動工作表中的各個超鏈接
If UCase(HLK.Address) Like "*.JPG" Or UCase(HLK.Address) Like "*.JPEG" Or UCase(HLK.Address) Like "*.PNG" Or UCase(HLK.Address) Like "*.GIF" Then '如果鏈接的位置是jpg或gif圖片(此處僅針對此兩種圖片類型,更多類型可以通過建立數組或字典或正則來判斷)
Set Rng = HLK.Parent.Offset(, 0) '設定插入目標圖片的位置
With ActiveSheet.Pictures.Insert(HLK.Address) '插入鏈接地址中的圖片
If .Height / .Width > Rng.Height / Rng.Width Then '判斷圖片縱橫比與單元格縱橫比的比值以確定針對單元格縮放的比例
.Top = Rng.Top
.Left = Rng.Left + (Rng.Width - .Width * Rng.Height / .Height) / 2
.Width = .Width * Rng.Height / .Height
.Height = Rng.Height
Else
.Left = Rng.Left
.Top = Rng.Top + (Rng.Height - .Height * Rng.Width / .Width) / 2
.Height = .Height * Rng.Width / .Width
.Width = Rng.Width
End If
End With
HLK.Parent.Value = "" '刪除單元格的圖片鏈接
End If
Next
End Sub

『伍』 excel超鏈接轉換成圖片

方法/步驟
第一步：Excel文件格式先設置為：Excel啟用宏的工作簿(*.xlsm)
怎麼將excel中的url批量轉化為圖片
第二步：1.復制代碼（代碼在最後面），打開VBA代碼編輯窗口（快捷鍵Alt+F11）
2.粘貼Excel批量生成圖片代碼，保存代碼，關閉VBA
怎麼將excel中的url批量轉化為圖片
第三步：調整單元格寬高一致（建議按照像素大小）
怎麼將excel中的url批量轉化為圖片
第四步：運行宏，實現URL鏈接生成圖片
怎麼將excel中的url批量轉化為圖片
5
Sub LoadImage()
Dim HLK As Hyperlink, Rng As Range
For Each HLK In ActiveSheet.Hyperlinks '循環活動工作表中的各個超鏈接
If UCase(HLK.Address) Like "*.JPG" Or UCase(HLK.Address) Like "*.JPEG" Or UCase(HLK.Address) Like "*.PNG" Or UCase(HLK.Address) Like "*.GIF" Then '如果鏈接的位置是jpg或gif圖片(此處僅針對此兩種圖片類型,更多類型可以通過建立數組或字典或正則來判斷)
Set Rng = HLK.Parent.Offset(, 0) '設定插入目標圖片的位置
With ActiveSheet.Pictures.Insert(HLK.Address) '插入鏈接地址中的圖片
If .Height / .Width > Rng.Height / Rng.Width Then '判斷圖片縱橫比與單元格縱橫比的比值以確定針對單元格縮放的比例
.Top = Rng.Top
.Left = Rng.Left + (Rng.Width - .Width * Rng.Height / .Height) / 2
.Width = .Width * Rng.Height / .Height
.Height = Rng.Height
Else
.Left = Rng.Left
.Top = Rng.Top + (Rng.Height - .Height * Rng.Width / .Width) / 2
.Height = .Height * Rng.Width / .Width
.Width = Rng.Width
End If
End With
HLK.Parent.Value = "" '刪除單元格的圖片鏈接
End If
Next
End Sub

『陸』 excel中超級鏈接直接顯示圖片

（我一開始認為搞不了。EXCEL的網路連接，需要藉助IE等瀏覽器打開，本身不具備瀏覽器的模塊，所以不能直接在內部打開。）

我抱著試試看的心態，直接插入圖片，然後輸入了淘寶圖片的超級連接，是可以直接插入的，但用時明顯多了，大約十幾秒。