Question

如何在EXCEL中批量插图

我们是外贸公司。每次出货，都要做个出货清单给客户，其中包括每个产品的编号，图片，价格，数量等。每次都要一张一张的把图插进去，然后改大小。这样的机械操作很浪费时间。有没有高手能告诉我怎样用VBA让这个操作变得超有效率？
非常感谢。我的金币不多。只有5个了。望笑纳。

Answer 1

操作方法及步骤：

如图所示，需要将对应照片插入“照片”列。

1.将照片放置一个文件夹内，建议对照片进行有规则的命名，这样可以方便快捷创建多个图片链接。

2.打开记事本程序，按如下格式输入图片的链接：

<table><img src="d:\pic\*.jpg" width="140" height="140">

3.将记事本中的文本全选进行复制，在Excel工作表中，右击“照片”列第一行，从弹出的右键菜单中选择“选择性粘贴”项。

4.在弹出的“选择性粘贴”窗口中，选中“Unicode文本”项，直接点击“确定”按钮。

5.完成操作，相关的照片自动插入到“照片”所在单元格啦。

Answer 2

用VBA解决不了，不过我有一个办法可以帮你解决问题，虽然不是很好，但足以给你节约时间，点击插入图片——把你本次想插入的图片全部插入到excel中——用对象选择工具，选择所有图片，单击右键，设计图片大小（按照你想要的大小即可），完了就全部变成统一的大小了，这个时候只需要把他们分别拖至你需要的位置即可。
小技巧提示：为了方便编辑，你插入图片后，由于图片过大，整个excel中只看到图片的一部分，这是你只需要按住ctrl键，滑动鼠标滚筒，即可随意调整视图的大小，知道你满意为止。
就这样了，希望对你有用。

Answer 3

不知道你的VBA水平怎么样，这个我觉得很简单呀，在出货清单的每一行填上对应的图片路径和图版名称，然后做个循环把图自动插入就行了呀，插入图片的方法可以参见VBA帮助，我把它拷过来了，很简单的。下面是帮助原文：

AddPicture 方法
从原有文件中创建图片。返回一个 Shape 对象，该对象代表新图片。

expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
expression 必需。该表达式返回“应用于”列表中的对象之一。

FileName String 类型，必需。要创建的 OLE 对象的源文件。

LinkToFile MsoTriState 类型，必需。要链接至的文件。

MsoTriState 可为以下 MsoTriState 常量之一。
msoCTrue
msoFalse 使图片成为其源文件的独立副本。
msoTriStateMixed
msoTriStateToggle
msoTrue 建立图片与其源文件之间的链接。

SaveWithDocument MsoTriState 类型，必需。将图片与文档一起保存。

MsoTriState 可为以下 MsoTriState 常量之一。
msoCTrue
msoFalse 在文档中只保存链接信息。
msoTriStateMixed
msoTriStateToggle
msoTrue 将链接图片与该图片插入的文档一起保存。如果 LinkToFile 为 msoFalse，则该参数必须为 msoTrue。

Left Single 类型，必需。相对于文档的左上角，以磅为单位给出图片左上角的位置。

Top Single 类型，必需。相对于文档的顶部，以磅为单位给出图片左上角的位置。

Width Single 类型，必需。以磅为单位给出图片的宽度。

Height Single 类型，必需。以磅为单位给出图片的高度。

示例
本示例向 myDocument 添加由文件“Music.bmp”创建的图片。插入的图片链接到其源文件，并与 myDocument 一起保存。

Set myDocument = Worksheets(1)
myDocument.Shapes.AddPicture _

Answer 4

Excel怎么批量插入图片？这个视频告诉你！