请问如何写代码，将本地图片超链接转为图片在表格中显示？

haolaoliu

显示图片.zip (708.65 KB, 下载次数: 10)

2020-1-7 15:00 上传

点击文件名下载附件

如图所示，A列是图片的位置超链接，我想将A列的超链接在B列显示为图片的预览，在网上找到的vba代码只能将下面两个网址形状的链接转成图片，电脑上的本地图片不能显示。请问代码如何编写，能将本地图片显示在B列，并随单元格改变大小？谢谢！

haolaoliu

我把代码修改了一下，现在能实现我要的功能的，但是总是报错，请问哪位大神知道原因？我用的是office365版本。

Sub iPic()
    Dim iC As Range, Rng As Range
    i = 1
    For Each iC In Range("a2:a999")
        i = i + 1
        Range("b" & i).Select
        Set Rng = Range("b" & i)
        With Sheets(1).Pictures.Insert(iC.Text)   '插入链接地址中的图片
        
            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
    Next
End Sub