Question

EXCEL中如何将插入的图片与图片名称对应？

如题，工作中需要在表格中插入图片，并在后面显示图片的型号（型号就是图片的名称），图片我是插入进去的，但是型号就很麻烦，手动输入的话太多了，求知友们帮忙，可以告知操作步骤，或者留一份稍作解释的VBA代码。

Answer 1

1、在excel加载项中选择“DIY工具箱”，选择导入图片功能；

2、在弹出的对话框中选择“添加”按钮；

3、找到图片路径，全选需要导入的图片，然后点击打开；在弹出的对话框中，设置需要储存的单元格，以及导入格式。关键的步骤就是选中“同时标注图片名”功能，然后点击确认。

4、然后我们在点击取消关闭对话框；

5、在表格中我们就把图片和图片名一一对应上了。

Answer 2

1.首先，要准备好对应的图片，名片的命名和Excel中要对应的名称相同。

2.将内容列进行复制，并且调出剪切板。

3.接下来，要做的工作就是把名称进行汇总，把复制的名称放到一个单元格中，例子中，放在了E2单元格中。然后用Ctrl+H，使用替换功能。

4.Excel导入图片，如果要批量的话，名称之间必须有“;”进行间隔开，要做的就是加入“;”，在查找内容里，输入Ctrl+J或者Ctrl+Enter，表示，要替换的是回车符，而替换为“;”。

5.点击“替换”以后，就会出现加了分隔符的信息了，把这些信息复制一下。

6.复制信息，推荐都把剪切板调出来，剪切板对于新人来说，是比较有用的一个功能。

7.然后开始插入图片，通过工具栏中的插入功能，进行图片的插入，找到准备好的图片素材所在路径，然后把复制的信息，粘贴到文件夹名中。

8.图片插入后，通过工具栏中的“编辑”，选择“定位”，然后选择“定位条件”。

9.在定位条件中，选择“对象”，因为图片是以对象的形式插入的，这样就可以选中所有的图片。

10.然后右键，选择设置图片格式。

11.根据自己的需要设置图片的样式，这里把图片缩小，然后能够放到单元格中。

12.会发现，图片都是按照前后顺序从高到低排列的，都是对应表格中的排列顺序。然后把图片移动到对应的表格中。

Answer 3

http://zhidao.baidu.com/link?url=qDDNGtNyRaGt8cT9j3DzLIQL71v8nDBvhxtc49WkaSEKcm-39Y2CqkLXP_AgstfWSHQkq1roXnx30V14ZegP4WBhQV0_E-JL3rQ84jFgMiO
先将图片文件整理到一个文件夹下，按照上面文章，提取出所有文件名。复制粘贴到excel中，这样你现有了图片名这列
http://jingyan.baidu.com/article/f3ad7d0fd2d83809c3345b92.html
然后按照这个介绍，导入图片，并设置大小和定位，将图片拖动到对应的单元格内。

追问

感觉你的方法也挺好的 ，不过我有一个想法，
把文件名弄好，然后再用函数插入图片，但就是不知道这个函数怎么弄

追答

似乎没有图片相关的函数

Answer 4

一般都是先输入货号，然后根据货号批量插入图片http://zhidao.baidu.com/question/1669040020486913627
如果手工插入图片，然后获取货号，实现起来比较费劲（插入图片的操作和输入货号的操作，哪个更方便一些，楼主应该能选择一个吧）

追问

谢谢你的回答，我正在阅读。。。
我要插入的图片都是放在同一个文件夹的，一起批量插入的，但是后面的货号是手动输的

追答

试试这个代码，没有测试：

Sub picTxt()
    Dim pic As Shape, i%
    i = 3
    For Each pic In ActiveSheet.Shapes
        Cells(i, 2) = Split(pic.AlternativeText, ".")(0)
        i = i + 1
    Next
End Sub

追问

下标越界了，我有个想法， （假设图片放在E:\）
如你说的，先把货号处理好，排列在表格中，然后在货号后面用函数插入相应的图片： = ********** img=E:\123.jpg, 然后拖动自动填充，这样就好多了，不过那个函数我不会写，你能试试吗？

追答

上面代码怎么可能出现下标越界的提示？虽然有自变量i，但其值是根据图片数量来的。
如果先输入货号，再批量导入图片，我上面的链接中有详细的操作步骤。