在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无法运行宏,请检查安全设置或与系统管理员联系。
excel中怎么根据内容自动调整高度和宽度?
(电脑型号:MacBook Air,软件版本:Excel 2021) 1、打开Excel,点击上面的【格式】; 2、弹出浅灰色框,点击【自动调整行高】; 3、同理,弹出浅灰色框,点击【自动调整列宽】; 4、excel中根据内容自动调整高度和宽度操作完成啦! 以上就是excel中怎么根据内容自动调整高度和宽度的教程,希望对你们有所帮助哦~ 3 评论 ...
excel如何添加自定义序列
2、点击高级,找到编辑自定义列表。3、弹出自定义序列对话框,点击添加,一个一个输入,确定。4、最后在excel表格中输入,或者在开始中找到排序和筛选自定义排序,在次序中选择自定义序列添加内容。Excel更多快捷键:Ctrl+shift++;所有页面放大20%。Ctrl+shift+-;所有页面减小20%。Ctrl+shift+H;打开...
如何在EXCEL表格中自动匹配姓名呢?
excel中按照姓名自动匹配数据,可以按照以下步骤进行操作:1、首先打开excel表格,在需要匹配数据的空白单元格中输入“=vlookup”并调用函数。2、然后选择需要匹配的姓名字段。3、英文逗号隔开后,选择要匹配的数据范围。4、英文逗号隔开,输入数据范围中需要匹配提取的数据所在的列数。5、然后选择精确匹配。6...
excel中如何让递增的文字自动递增?比如001
1. 打开“文件”菜单,选择“选项”。2. 在选项窗口中,找到“高级”选项,然后点击“编辑自定义列表”。3. 在弹出的对话框中,添加自己的自定义序列,如“001、002、003...”。4. 确认后,在表格中下拉时,就会按照设定的序列进行递增。详细解释:使用填充句柄功能:Excel中的填充句柄是一种自动...
如何设置Excel中单位的自动生成
有的小伙伴在使用Excel软件编辑数据时,为了节省输入单位的时间,因此想要设置自动生成单位,但是却不知道如何设置,那么小编就来为大家介绍一下吧。具体如下:1.第一步,双击或者右击打开Excel表格软件。2第二步,来到Excel软件主页面后,点击页面顶部的插入选项,来插入表格,接着随便输入两列数值,小编就...
如何在Excel中为自定义命令设置快捷键?
想要让你的Excel表格呈现出独特的视觉效果,让一行蓝色一行白的交替更加醒目?那就跟随我一起来学习如何设置快捷键吧!首先,打开你的Excel工作簿,点击左上角的Excel图标或者直接选择“文件”选项,这将带你进入Excel的控制中心——“Excel选项”。进入后,有两种方法来探索:一是快捷方式,点击快速访问工具...
如何在Excel中自定义图表X、 Y轴刻度呢?
在Excel中,自定义X轴和Y轴可以帮助我们更好地展示数据和图表。以下是详细的操作步骤:首先,打开Excel,并创建或打开一个包含数据的表格。其次,选中需要自定义轴的数据区域,然后点击“插入”选项卡,找到“图表”区域,选择一个合适的图表类型,如柱状图、折线图或饼图等。接着,在弹出的“图表工具”...
excel中如何让内容自动分行?
(3)“数据” → “自表格\/区域”(4)选中需要分行的数据单元格 → “拆分列” → “按分隔符”(5)“选择或输入分隔符”处输入“逗号” → “拆分为”处,选择“行” → “确认”(6)点击左上角中“关闭并上载”就ok啦!(7)最终效果 关注我,让你从Excel小白蜕变成Excel大神!
如何在Excel中自动添加单引号?
需要注意的是,在进行替换操作之前,最好先备份原始数据以免发生意外。1. 要在单元格中自动添加双引号,可以使用excel的自定义格式选项。2. 首先选择单元格,然后单击鼠标右键,选择“格式单元格”选项,进入单元格格式窗口。3. 选择“自定义”选项卡,然后找到文本框中的“类型”一行。4. 在类型框中...
excel如何自动提取另一个表格数据excel如何自动提取另一个表格数据中...
4该数据在第二列,所以输入2,精确匹配,所以输入FALSE),点击✓5如图所示,第一个数据已经出现了 6把鼠标指针放在单元格右下角,按住鼠标左键向下拉 7如图所示,已经完成自动提取另一个表格数据了。1、双击打开电脑中安装的Excel软件,进入主页面。2、打开表一个表格,这个表格里sheet1和sheet2...
勇沾亚硝: 可以参考下这个: 员工厂牌格式_竖式导入图片 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过程,当某列特殊单元格(如姓名)变化...