excel 将图片的链接URL 显示为图片转

最新推荐文章于 2025-06-11 13:15:00 发布

weixin_30835933

最新推荐文章于 2025-06-11 13:15:00 发布

阅读量6.8k

点赞数 1

CC 4.0 BY-SA版权

文章标签： php python java

原文链接：http://www.cnblogs.com/kevinge/archive/2012/11/05/2755220.html

本文详细介绍了如何使用VBA脚本在Excel中将图片URL插入到指定单元格，并自动显示图片。通过提供的示例代码，用户可以轻松地在工作表中批量插入和显示远程图片资源。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

原帖： http://www.mrexcel.com/forum/excel-questions/604604-insert-image-url-images-into-cells-2.html
1. 如下VBA脚本将c1单元格内图片url链接在单元B1内把图片显示出来

Sub Test()

Dim Pic As Picture

    Application.ScreenUpdating = False
    With ActiveSheet.Range("C1")
        Set Pic = .Parent.Pictures.Insert(.Value)
        With .Offset(, -1)
            Pic.Top = .Top
            Pic.Left = .Left
            Pic.Height = .Height
            Pic.Width = .Width
        End With
    End With
    Application.ScreenUpdating = True
End Sub

2. 整列的图片url显示为图片

Sub Test()
     Dim Rng As Range
     Dim Cell As Range
     Dim Pic As Picture
    Application.ScreenUpdating = False
     Set Rng = Range( " C1:C " & Range( " c " & Rows.Count).End(xlUp).Row)
     For Each Cell In Rng
         With Cell
             Set Pic = .Parent.Pictures.Insert(.Value)
             With .Offset(, - 1)
                Pic.Top = .Top
                Pic.Left = .Left
                Pic.Height = .Height
                Pic.Width = .Width
             End With
         End With
     Next Cell
    Application.ScreenUpdating = True

End Sub

转载于:https://www.cnblogs.com/kevinge/archive/2012/11/05/2755220.html