如何使图片链接，批量变成插入图片？

ahkin

如附件，在A列都是图片链接，如何才能让这些链接，都在B列显示指定的尺寸的图片？
请大师帮助帮助，谢谢。

样列.rar (7.31 KB, 下载次数: 566)

2014-10-9 20:36 上传

点击文件名下载附件

helloyyn

我的是2010版的EXCEL，插入--形状--矩形或你要展示的形状，调整大小到你想要的图片大小，再复制，粘贴到其余你将要放图片的位置。选中矩形，点右键-设置图片样式--填充--图案填充--插入自文件，选择你想插入的图片即可。

醉眼看尘世

样列.rar (13.44 KB, 下载次数: 1002)

2014-10-9 21:18 上传

点击文件名下载附件

详见附件(按ALT+F8运行该宏，就行了。)
写了个VBA代码，如下：
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

林越洋

1. Sub fas()
   
2. Dim I As Long
   
3. Dim TP As Picture
   
4. 
   
5. With Me
   
6.     For I = 2 To 10
   
7.         If Dir(.Cells(I, 1)) <> "" Then
   
8.             Set TP = .Pictures.Insert(.Cells(I, 1))
   
9.             With .Cells(I, 2)
   
10.                 TP.Left = .Left
    
11.                 .RowHeight = TP.Height
    
12.                 TP.Top = .Top
    
13.             End With
    
14.         End If
    
15.     Next
    
16. End With
    
17. Set TP = Nothing
    
18. End Sub

复制代码

以上的代碼就是插入圖片

闻启学

林越洋 发表于 2014-10-10 09:39
以上的代碼就是插入圖片

这个在2010 中是链接形式的  

闻启学

醉眼看尘世 发表于 2014-10-9 21:18
详见附件(按ALT+F8运行该宏，就行了。)
写了个VBA代码，如下：
Sub test()

ActiveSheet.Shapes.AddShape(msoShapeRectangle, rg.Left, rg.Top, rg.Width, rg.Height).Select

可以使用  ActiveSheet.Shapes.AddPicture(图片名称，true，true rg.Left, rg.Top, rg.Width, rg.Height)

醉眼看尘世

闻启学 发表于 2014-10-10 12:20
ActiveSheet.Shapes.AddShape(msoShapeRectangle, rg.Left, rg.Top, rg.Width, rg.Height).Select

可以 ...

原来直接有addpicture这个方法。。。。
学习了。
受教。

sinoshon

我在2013excel执行上面的VBA，提示失败，错误提示如附件图。

这到底是错在哪里？

谢谢。

sinoshon

自己顶一下，等待高手指点迷津！

罗敏129873

醉眼看尘世 发表于 2014-10-9 21:18
详见附件(按ALT+F8运行该宏，就行了。)
写了个VBA代码，如下：
Sub test()

如果图片地址列有失效的  或是有非地址内容怎么办  怎么跳过这些啊