让网络图片显示在指定单元格

windowskk

    让图片显示在Sheet3的  N20，并且删除图片后再打开表格时能自动再显示出来
老大们，帮帮忙

1. Sub test()
   
2. Dim vcode
   
3. Dim nUrl As String, localFilename As String, lngRetVal As Long
   
4. nUrl = "http://ss2.smovie168.com/all/8282.png"
   
5. Set vcode = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 150, 150, 200, 150)
   
6. vcode.Select
   
7. Selection.ShapeRange.Fill.UserPicture nUrl
   
8. End Sub

复制代码

插入网络图片.rar (320.89 KB, 下载次数: 16)

2019-8-18 13:46 上传

点击文件名下载附件

windowskk

呼叫老大们帮忙

windowskk

已自行解决

YZC51

请参考