利用vba将excel中的图片链接直接转换为图片

Sub test()
Dim rg As Range, shp As Shape
Rem ---------------------------------------------------
Rem 清除图形对象
For Each shp In ActiveSheet.Shapes
shp.Delete
Next
Rem ---------------------------------------------------
Rem 按名称插入图片
Rem 下行代码,根据A列开始循环处理
For I = 2 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

按ALT+F8运行该宏

posted on 2016-03-05 13:49  隨風.NET  阅读(9874)  评论(0编辑  收藏  举报

导航