excel表格中如何批量插入图片的超链接

我想把文件夹里的图片批量插入超链接到表格中，不需要显示图片，只用显示文件名称即可。
在网上搜索到以下办法：
1. Alt+F11，进入VBA编辑界面；
2. Alt+I+M，插入一个Module；
3. 在右边Module的空白编辑区域，复制粘贴下面的所有内容；
4. F5，运行该VBA命令；

Sub 链接()
i = 2
Do While Range("A" & i).Cells.Text <> ""
Range("A" & i).Select
Worksheets("Sheet1").Hyperlinks.Add Anchor:=Selection, Address:="F:链接" & Range("A" & i).Cells.Text, _
TextToDisplay:=Range("A" & i).Cells.Text
i = i + 1
Loop
End Sub

说明：“A”为列标题；"F:链接"是文件夹路径，相对路径可以删除引号中的内容。

但是具体到“A”“ F:链接”这两个需要替换掉的字符不知道对应写些什么。麻烦高手们点拨一下呀~

原发布者:dtminer

Excel中如何实现批量插入图片？关键词：Excel；批量插入/添加图片；数据分析；张立良老师；数据小兵实际需求是推动持续学习与创新的最大动力。工作中经常需要在excel表格中插入对应的图片，一张、两张、三张、、、一张一张的插入你觉得已经够完美的了，遗憾的是，如果你遇到需要一次性大批量插入100张、1000张图片时，也是重复插入100次、1000次么？答案是你可以这么做，等到手抽筋的时候你大概会想，要是有一种方法大批量插入该有多好！——有！我自己惯性的插入三张图片后，我开始抱怨微软太不尽人意了。为什么没有批量插入图片的功能？于是我把问题推给了百度和谷歌，两位老大哥很快给出了答案——批量插入图片的宏、批量插入图片的小插件，惊喜下，试了各种方法，新浪博主ahzll的excel工具箱（Exceltool）让我心动不已。（点击进入：张立良博客；张立良微博；Excel工具箱下载）Exceltool工具介绍：EXCEL必备工具箱是一个的EXCEL插件，点击“安装”后就可以使用，绝大部分功能可以免费使用，与excel完全溶为一体。提供了密码去除、阴阳历转换、将选区存储为图片、身份证号码校验、工作表排序及生成目录、人工双面打印、专业水准的套表数据汇总、穿透查询等实用功能。工作表标签上点击右键还增加了轻松隐藏/取消隐藏工作表、工作表导出为文件功能。针对财务人员，还提供了个人所得税、未确认融资费用、按揭贷款/一般贷款利息、各种复利、

比如，你的图片存放在D盘的“图片”文件夹里，则将“F:链接”改为“D:\图片”，注意要有“\”。 更多问题，欢迎到http://www.exceltip.net/?fromuid=2【我的提问】版求助。

以上公式是很好的，但还缺少一些内容，需要修正，修正如下： Sub 链接() i = 2 Do While Range("C" & i).Cells.Text <> "" Range("C" & i).Select Worksheets("Sheet1").Hyperlinks.Add Anchor:=Selection, Address:="D:\图片\" & Range("C" & i).Cells.Text & ".jpg", _ TextToDisplay:=Range("C" & i).Cells.Text i = i + 1 Loop End Sub 说明：D:\图片\ 是指图片路径。 Range("C" & i)中的C是指表格中的C列和i行。 Worksheets("Sheet1")中的Sheet1是指表格名称，要与你的工作表名称一致。 本修正增加了 Cells.Text & ".jpg", _ 中的 & ".jpg"，以链接图片后缀名。 大家可试试，亲测一切OK！

方法/步骤 打开excel文件，默认有三个工作表 切换到sheet2工作表下，然后插入一张图片，如"元宵节快乐" 切换到sheet1工作表下，选中“查看图片”单元格，右键在下拉列表中选择"超链接" 打开超链接对话框，点击本文档中的位置，然后选择其中一个单元格引用，点击确定按钮，关闭对话框 在工作表中“查看图片”单元格的查看图片则变成可点击的链接 点击"查看图片"，则会跳转到当前文件的另外一个工作表中 7 如果想回到文件首页，点击第一个工作表sheet1即可

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息