Excel VBA實(shí)現(xiàn)圖片文本網(wǎng)絡(luò)地址轉(zhuǎn)變爲(wèi)圖片

在Excel數(shù)據(jù)錶格中有些網(wǎng)頁(yè)圖片的鏈接。希望把這些鏈接轉(zhuǎn)變成對(duì)應(yīng)的圖片

通過(guò)下麵代碼，可以先把圖片文本地址轉(zhuǎn)變成超鏈接格式

然後插入圖片到鏈接對(duì)應(yīng)的單元格內(nèi)，可以先設(shè)置單元格的長(zhǎng)寬，這樣圖片會(huì)按單元格大小自動(dòng)生成

Sub HyperlinksToPic()
    On Error Resume Next
    
    i = 1
    
    Do While i <= Cells(Rows.Count, 1).End(xlUp).Row Cells(i, 1).Select link = Cells(i, 1).Value ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=link '把文本地址都變成超鏈接 i = i + 1 Loop Dim HLK As Hyperlink, Rng As Range For Each HLK In ActiveSheet.Hyperlinks '循環(huán)活動(dòng)工作錶中的各箇超鏈接 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圖片(此處僅針對(duì)此兩種圖片類(lèi)型,更多類(lèi)型可以通過(guò)建立數(shù)組或字典或正則來(lái)判斷) Set Rng = HLK.Parent.Offset(, 0) '設(shè)定插入目標(biāo)圖片的位置 With ActiveSheet.Pictures.Insert(HLK.Address) '插入鏈接地址中的圖片 If .Height / .Width > Rng.Height / Rng.Width Then '判斷圖片縱橫比與單元格縱橫比的比值以確定針對(duì)單元格縮放的比例
                    .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

如圖所示，文本鏈接成功轉(zhuǎn)換成圖片