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

ChinaLzw

于 2021-05-25 16:07:38 发布

阅读量2.9k

点赞数

文章标签： excel 宏

原文链接：http://www.mrexcel.com/forum/excel-questions/604604-insert-image-url-images-into-cells-2.html

版权

这篇博客分享了两个VBA宏代码，能够将Excel单元格中的图片URL自动转化为实际图片并显示在工作表中。第一个宏用于单个单元格，第二个宏则可以处理整列的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