Question

EXCEL表格中的图片都是一个个超链接网址，怎么让其批量转换成图片的方式显示，除了批量下载在一个个

EXCEL表格中的图片都是一个个超链接网址，怎么让其批量转换成图片的方式显示，除了批量下载在一个个插入的方法还有别的方法吗？高分求

Answer 1

图片是个URL需要在 Excel 中直接显示图片，用VBA脚本能够实现，具体编辑方法如下：

1、环活动工作表中的各个超链接，如果是jpg或gif图片，不是可以通过正则来判断。

2、设定图片的位置，插入地址中的图片。

3、判断图片纵横比与单元格纵横比的比值以确定针对单元格缩放的比例。

4、最后删除单元格的图片链接。

Answer 2

EXCEL表格可以转换成图片，并且，即使更改表格内容，图片也能随之自动更新，具体操作方法为：

1、例如，要把下列表格转换成图片。

2、首先，我们点击最顶端的向下小图标，然后点击其他命令。

3、这时，跳出Excel选项，再选择所有命令-照相机，点击添加， 再确定。

4、又回到了EXCEL表格，我们可以看到，顶端多出了一个照相机的小图标，我们先选中表格，然后点击一下照相机。

5、再在EXCEL空白单元格处点击一下，表格转换成的图片就出现了。

注意事项：

直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。

Answer 3

网址如果在B列，例如B2:b4

Sub iPic()
    Dim iC As Range
    For Each iC In Range("B2:B4")
        Sheets(1).Pictures.Insert (iC.Text)
    Next
    
End Sub

这样批量将网址对应的图片  插入在Sheet1中

追问

vba代码弄吗？

追答

对啊

追问

我小白，这个代码插这吗？还是插在模块或者类模块里面？

追答

不用模块也可以啊，你的B2单元格内容是什么

追问

全部是图片的链接

我这个是2007的表

追答

我用2010，难道区别在这？我再试试

追问

b2到b90每个单元格里面都有一个图片链接

好的，非常感谢，我提高积分

追答

试了，2010里面和链接有关，连接直接打不开，代码也就会出错。

你的代码变成一句，测试一下方法支不支持：
Sheets(1).Pictures.Insert ("http://pic.baike.soso.com/p/20140508/20140508143559-150070660.jpg")

我这句话能运行，没有问题。

追问

这个链接换成你上面的或者我表格里面的都是这样的提示

追答

看到这几个错误，可能2007不支持这样做吧。或者方法不一样

试试这样做：点 录制宏，然后 在某个表里 插入——图片，选一张本地的图片
然后 停止录制宏，查看录制的代码。

我2010就是这样做的，录制的宏是：
ActiveSheet.Pictures.Insert("G:\IMG_6163.jpg").Select

我把Insert里面 的文本换成网址，也能够运行。

PS：看你代码 没加 Sub** ……End Sub 能运行？

追问

图片太多了，这样怕插错

纠结啊

追答

亲测  Excel2007  插入图片过程  录制不到宏代码。

找了半天，发现Worsheet有  Shapes  属性，它有Addpicture的方法，不过2007里面测试好像还是不能打开网上的图片。

2010还是没有问题，并且AddPicture方法可以对图片的位置、大小进行设置【必须设置】，插入的图片会比较整齐。

代码供参考：

Sub aaa()
    Dim Sp As Shapes
    Set Sp = Sheets(1).Shapes
    j = Sheets(1).Cells(2, 4).Left
    k = Sheets(1).Cells(2, 4).Top
    For i = 2 To 4
        Sp.AddPicture Sheets(1).Cells(i, 2).Text, False, True, j, k, 100, 100
        k = k + 110
        If k > 1200 Then j = j + 110
    Next i
End Sub

2007很郁闷啊，真不行，哥们你趁此机会把Office升级到2010版本吧，反正表面上看着差不多，不像2003到2007差别那么大

Answer 4

今天研究了一下，最好的方法是安装一个Kutools for Excel 插件，版本要21的，随便百度一下就有，具体使用方法：

网页链接