原帖: http://www.mrexcel.com/forum/excel-questions/604604-insert-image-url-images-into-cells-2.html 如下VBA脚本将c1单元格内图片url链接在单元B1内把图片显示出来 Sub Test() Dim Pic As Picture Application.ScreenUpdating = False With ActiveSheet.Range("C1") Set Pic = .Parent.
Sub test() Dim rg As Range, shp As Shape Rem --------------------------------------------------- Rem 清除图形对象 For Each shp In ActiveSheet.Shapes shp.Delete Next Rem --------------------------------------------------- Rem 按名称插入图片 Rem 下行代码,根据A列开始循环处理 ).R