Excel 如何将图片URL 显示为图片

由于公司需要统计根据门店业绩和装修档次定制扶持政策，所以要到处携带门店门头照片+业绩的报表，而数据库存储的是图片的链接。由于后台统计报表相对应的库暂时没有插入图片的功能。所以通过宏来完成将Excel中url替换为插入图片，又为了避免插入图片太多，导致Excel大小暴增，所以在选择了对应门店门头照片链接时才插入图片。

具体步骤如下：
1、进入对应sheet页的View Code

• 一种方法：快捷键 Alt+F11
• 一种方法：邮件sheet标签，选择View Code

2、在编辑处一次选择 Worksheet SelectionChange

3、然后在对应的时间方法中插入如下代码
代码功能为，当前选择的表格内容前七位是http://时，以这个表格内容为图片链接在改表格处插入图片。

With Target
        If Left(.Value, 7) = "http://" Then '如果单元格内容为网址
            '添加网络图片，并设置为图片大小位置随单元格变化而变化
            ActiveSheet.Shapes.AddPicture(.Value, msoCTrue, msoCTrue, .Left, .Top, .Width, .Height).Placement = xlMoveAndSize
            .WrapText = True '单元格设置为自动换行，以隐藏网址
        End If
End With