excel中图片链接利用宏VB转换为图片展示

最新推荐文章于 2025-04-10 10:58:27 发布

你好--生活

最新推荐文章于 2025-04-10 10:58:27 发布

阅读量9.5k

点赞数 2

分类专栏： VBScript

VBScript 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一个Excel VBA宏，该宏可以将Excel单元格中的图片链接转换为实际的图片显示。通过循环处理指定范围内的单元格，并利用VBA代码在每个含有链接的单元格位置插入对应图片。

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

在excel中添加自定义的宏，将excel中的图片链接转换为图片展示出来

Sub ShowImage()
Dim rg As Range, shp As Shape
Rem ---------------------------------------------------
Rem 清除图形对象
For Each shp In ActiveSheet.Shapes
shp.Delete
Next
Rem ---------------------------------------------------
Rem 按名称插入图片
Rem 下行代码，根据A列开始循环处理
For I = 1 To Cells(Rows.Count, "A").End(3).Row
Set rg = Cells(I, "B")
Rem 下面代码，添加矩形
ActiveSheet.Shapes.AddShape(msoShapeRectangle, rg.Left, rg.Top, rg.Width, rg.Height).Select
Rem 下面代码，在矩形内部用图片填充
Selection.ShapeRange.Fill.UserPicture rg.Offset(0, -1).Value
Next
End Sub