在excel中如何自动插入图片。？

~

一、前提条件

在Excel的单元格中，已输入人物的姓名，并且，在姓名的下面，留有空的单元格待插入相应的图片。

如下图一样。比如，B1是姓名，而B3则是要根据张三这个姓名，自动将张三这个人的照片插入到B3中。其它以此类推。

  这得使用VBA来完成。

同时，人物的照片所在的文件夹，和Excel工作薄，在相同的路径，比如，下图的位置。

  另外，每个员工的照片的名称，都是按照员工的姓名来命名的，如下图。

  像这样的问题需求，是具备一定规律的，因此，能使用VBA来完成。

二、实现方法

打开你的Excel，然后执行菜单操作：“工具”→“宏”→“宏”;弹出如下图对话框。

  上图中，宏名那里，输入 AutoAddPic ，然后，点击“创建”按钮，弹出代码输入窗口，如下图。

  代码如上图，请书写完整，否则会发生异常。为方便大家的学习，下面将代码写为下文，以供参考：

'自动插入图片前，删除所有图片

For Each Shp In ActiveSheet.Shapes

If Shp.Type = msoPicture Then Shp.Delete

Next

Dim MyPcName As String

For i = 1 To ThisWorkbook.ActiveSheet.UsedRange.Rows.Count

If (ActiveSheet.Cells(i, 1).Value = "姓名") Then

MyPcName = ActiveSheet.Cells(i, 2).Value ".gif"

'MsgBox "图片的完整路径是" ThisWorkbook.Path "员工照片" MyPcName

ActiveSheet.Cells(i + 2, 2).Select '选择要插入图片的单元格作为目标

Dim MyFile As Object

Set MyFile = CreateObject("Scripting.FileSystemObject")

If MyFile.FileExists(ThisWorkbook.Path "员工照片" MyPcName) = False Then

MsgBox ThisWorkbook.Path "员工照片" MyPcName "图片不存在"

Else

'在选定的单元格中插入图片

ActiveSheet.Pictures.Insert(ThisWorkbook.Path "员工照片" MyPcName).Select

End If

End If

Next i

书写完代码以后，点击窗口中的保存，然后关闭代码窗口，返回Excel窗口。

接着，执行菜单操作：“工具”→“宏”→“宏”，弹出如下图。

  选中上面所创建的宏名 AutoAddPic ，然后，点击“执行”按钮，这样，Excel就会根据每个姓名找到所对应的照片，将照片插入到每一个人所对应的相应的单元格。

三、知识扩展

ThisWorkbook.ActiveSheet.UsedRange.Rows.Count该行代码的含义是，获取工作表中的有效数据的最大行。

If (ActiveSheet.Cells(i, 1).Value = "姓名") 判定第一列中的各行，其内容是否为“姓名”二字，是姓名就去找图片来插入，否则就不找。

MyPcName = ActiveSheet.Cells(i, 2).Value ".gif"获取每个人的照片名称，如 青山.gif

ThisWorkbook.Path "员工照片" MyPcName获取每个人的照片所在的路径，是完整的绝对路径，而不是相对路径。

ActiveSheet.Cells(i + 2, 2).Select '选择要插入图片的单元格作为目标，即哪个单元格要插入图片，就选中哪个

ActiveSheet.Pictures.Insert(ThisWorkbook.Path "员工照片" MyPcName).Select'在选定的单元格中插入图片

If MyFile.FileExists(ThisWorkbook.Path "员工照片" MyPcName) = False Then判断员工照片是否存在

在Excel中，您可以通过以下步骤自动插入图片：
打开Excel并定位到您想要插入图片的工作表。
点击您想要插入图片的单元格，确保该单元格是您希望图片出现的位置。
在Excel的菜单栏中，找到"插入"选项卡，然后点击"图片"按钮。这将打开文件浏览器。
在文件浏览器中，浏览并选择您要插入的图片文件，然后点击"插入"按钮。
插入的图片将会出现在您之前选择的单元格中。
如果您希望自动插入多个图片，可以使用Excel的宏功能来实现。下面是一个示例宏的代码，可以自动插入指定文件夹中的所有图片：
按下"Alt + F11"打开Visual Basic for Applications（VBA）编辑器。
在VBA编辑器中，点击"插入"菜单，然后选择"模块"。
在模块窗口中，复制粘贴以下VBA代码：
vba 复制Sub InsertPictures()
Dim imagePath As String
Dim imageName As String
Dim rng As Range
Dim pic As Picture

' 设置图片文件夹路径
imagePath = "C:\Your\ImagePath\"

' 设置图片文件类型（例如，*.jpg）
imageName = "*.jpg"

' 设置插入图片的起始单元格
Set rng = Range("A1")

' 循环遍历文件夹中的图片文件
imageName = Dir(imagePath & imageName)
While imageName <> ""
' 插入图片
Set pic = ActiveSheet.Pictures.Insert(imagePath & imageName)

' 调整图片大小和位置
With pic
.ShapeRange.LockAspectRatio = msoFalse
.Width = rng.Width
.Height = rng.Height
.Top = rng.Top
.Left = rng.Left
End With

' 移动到下一个单元格
Set rng = rng.Offset(1, 0)

' 获取下一个图片文件
imageName = Dir
Wend
End Sub
在VBA编辑器中，按下"F5"执行宏。
这个宏将自动插入指定文件夹中的所有图片，并将它们调整为与起始单元格相同的大小和位置。您可以根据需要修改代码中的图片文件夹路径、文件类型和起始单元格。
请注意，宏功能在一些Excel版本中可能被禁用。如果您的Excel无法运行宏，请检查安全设置或与系统管理员联系。

---

惠民县15758012861： EXCEL表如何自动导入图片.？
勇沾亚硝： 可以参考下这个: 员工厂牌格式_竖式导入图片 http://www.exceltip.net/thread-25033-1-1-873.html

惠民县15758012861： 怎么在excel中放上照片 - ？
勇沾亚硝： 在excel中放上照片的具体步骤如下: 我们需要准备的材料分别是:电脑、excel表格、照片. 1、首先我们打开需要编辑的excel表格,点击打开插入中的“图片”. 2、然后我们在弹出来的窗口中选择想要插入的图片,点击“打开”. 3、然后我们单击右键点击打开“设置对象格式”. 4、然后我们点击图片进行编辑,根据自己的情况来调整. 5、最后我们点击压缩进行压缩图片,回车确定即可.

惠民县15758012861： 用Excel做一个表格,怎么放照片上去? - ？
勇沾亚硝： 用Excel做一个表格,把照片放上去,只需要使用“插入图片”工具即可.方法步骤如下:1、打开需要操作的EXCEL表格,点击工具栏的“插入”.2、找到“插图”一项,点击“图片”.3、选择需要添加到表格中的照片,然后点击“插入”即可.4、返回EXCEL表格,发现照片已成功添加到表格中,可通过缩放调整照片大小,以满足实际所需.

惠民县15758012861： excel表格里单元格插入图片,有什么方法能让图片自动适应单元格大小呢? - ？
勇沾亚硝： 打开Excel,点击“图像工具”,然后点击“导入图像”(这里的导入图像是批量插入图像的含义),点击右边的“添加”按钮,并添加图像以插入Excel. 导入模式,选择第一个,并将每行中的图片数量设置为1.如果您想在图片中插入两列,...

惠民县15758012861： 嵌入图片快捷键excel(嵌入照片快捷键) ？
勇沾亚硝： 1. 嵌入照片快捷键工具/原材料;word2007、电脑.1、打开电脑程序找到并点击... 先按alt+n再按alt+p打开插入图片对话框4、选中图片点击插入7. 嵌入照片快捷键cad如何...

惠民县15758012861： 如何将图片插入到Excel表中 - ？
勇沾亚硝： 插入方法: 使用插入-图片功能,插入后,设置图片属性为:大小和位置随单元格而变.Excel版本参考:2010 1、选中要插入图片的单元格; 2、点击插入-图片,选择要插入的图片,确定; 3、右击图片,大小和属性-属性-大小和位置随单元格而变.,确定; 4、调整单元格大小,查看效果(图片已插入)

惠民县15758012861： Excel2007如何自动插入图片并根据该单元格自动调整大小 - ？
勇沾亚硝： =“<table><img src=＂＂图片所在路径名\＂&图片名称所在单元格&＂.jpg＂＂>” 复制,并在剪贴板重新粘贴,选择性粘贴Unicode文本,即可完成插图 调整大小:Ctrl+G定位到对象,“属性”里面可设置让图片根据单元格自动调整大小

惠民县15758012861： excel怎么批量插入图片,一张一单元格,且自动调整固定大小...教教菜鸟小女子我吧...哎..？
勇沾亚硝： 楼主说得好清楚啊.给你整一个步骤吧,你不需要懂那些宏代码什么意思,按以下步骤操作就可以了: STEP1:把你要插入的图片文件检查一下是否都是同一种格式.(例如BMP格式,或JPG格式,或PNG格式等,只放一种) STEP2:把这些图片文件放在'E:\PIC\下面. STEP3:打开EXCEL,然后按下ALT+F11,点菜单中的'插入',然后点'模块'.这时把下面那段宏代码提现到代码框. STEP4:按F5,会跳出一个输入框,默认的是JPG格式的图片文件,如果你的图片不是JPG格式,请输入其他的格式,注意是文件名的后缀,三个字母.最后点确定,大功告成. 呵呵,如果代码有错,就要找楼主了.

惠民县15758012861： excel 里面插图片怎么弄 - ？
勇沾亚硝： 这个容易啊. 1、点“插入”--“图片”---“来自文件”,然后找到你要插入的图片点“插入”就行了. 2、还有插如图片后你还可以调整图片的大小,不过调整图片大小之后要记得“压缩图片”,这样excel才不会很大.

惠民县15758012861： Excel中怎么利用宏使在一个单元格输入内容后自动插入图片 - ？
勇沾亚硝： 你的目的是想像人事管理那样,输入一个名字,后面一个格子就出来一个头像用宏可以实现,给你提供解决思路1、监测CHANGE过程,当某列特殊单元格(如姓名)变化...