作者：乔山办公网日期：
返回目录：excel表格制作
图片地址对应一个网络上的图片，需要下载到本地，才能依次读取到excel里面
在excel里，图片是通过“插入”图片来完成的，貌似没有直接像文字、公式那样可以自动生成显示的。
要想实现这个，你需要编写vba脚本来完成。
效果如图：
操作方法：
1运行“EXCEL”软件
2执行“文件--打开”命令
3打开要添加图片zhidao，标注的文件
4添加批注
5点击选中要添加批注的单元格，执行“插入--批注”
6在批注框中添加上要说明的内容，在外面单击完整添加
7鼠标移至红色标记上就可查看批注内容了
8添加图片
9执行“插入--图片”命令
10“剪贴画”子菜单命令，EXCEL左侧出现剪贴画面板，双击图片即版可插入，鼠标拖动改变其位置，大小
11“来自文件图片”命令，在插入图片对话框，选择图片，单击“插入”按钮即可
12图片工具栏：选择需要的修改按钮，编辑权即可
13“自选图形”子菜单命令：可添加线条，链接符，基本形状箭头，流程图等图形，根据需要自己绘制
14“艺术字”子菜单命令：
15在“艺术字库”对话框中双击选中一种艺术字样式
16在“编辑艺术字样式”框中可输入文字，设置字体，字号，加粗等，“确定”完成编辑
17组织结构图“”子菜单命令
18编辑需要的结构图
19通过“组织结构图”工具栏中的“插入形状”“选择”“版式”三个菜单可改变默认的组织结构图
以下度VBA代码可以实现，请参考：
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 1 And .Count = 1 Then '修改问的单元格答在A列，且只修改一个单元格
If Left(.Value, 7) = "http://" Then '如果单元格内容为网址
'添加网络图片，并设版置为权图片大小位置随单元格变化而变化
ActiveSheet.Shapes.AddPicture(.Value, msoCTrue, msoCTrue, .Left, .Top, .Width, .Height).Placement = xlMoveAndSize
.WrapText = True '单元格设置为自动换行，以隐藏网址
End If
End If
End With
End Sub