excel 批量导入图片 查找对应姓名的照片、批量导入图片
发布时间:2023-07-03 20:23:04
excel批量导入图片一般是使用VBA代码实现,因为excel功能的局限性,插入——图片,尽管可以批量导入图片,但不能自动排版。
文章总结几个excel批量导入图片相关的案例,分享给大家。
excel批量导入图片案例一:
如下图所示:A列是姓名,D列需要批量导入A列姓名对应的照片,当单击“图片导入”按钮,即可批量导入图片。
下面的代码实现的功能是:批量导入图片,然后按照原比例缩放以填充单元格,如果单元格高宽改变,再次单击“图片导入”按钮即可。
说明:对应的图片命名需要和姓名一致,图片文件夹和excel源文件放在同一路径之下。
下面是具体的代码:
Sub 批量导入图片()
'将图片导入。
'图片按照原比例存储,按照原比例存储
On Error Resume Next
Dim R&
Dim Pic As Object
'先删除所有可能存在的图片
For Each Pic In Sheet1.Shapes
If Pic.Name <> Sheet1.Shapes("按钮 97").Name Then
Pic.Delete
End If
Next
For R = 2 To Range("A65536").End(xlUp).Row
'插入图片
Set Pic = Sheet1.Pictures.Insert(ThisWorkbook.Path & "pic" & Cells(R, 1) & ".jpg")
'锁定高宽比
Pic.ShapeRange.LockAspectRatio = True
'看高宽比。如果图片高宽比高,那么调整到单元格高度,否则调整到单元格宽度
'我们看到的右键格式菜单里的东西都是针对ShapeRange而言的,所以要用ShapeRange来设定
With Pic.ShapeRange
'如果图片高宽比比单元格大,说明图片太高,只需调整图片高度
If .Height / .Width > Cells(R, 4).Height / Cells(R, 4).Width Then
.Height = Cells(R, 4).Height
'调整位置
.Top = Cells(R, 4).Top
.Left = Cells(R, 4).Left + (Cells(R, 4).Width - .Width) / 2
'如果图片高宽比比单元格小,说明图片太宽,只需调整图片宽度
Else
.Width = Cells(R, 4).Width
'调整位置
.Left = Cells(R, 4).Left
.Top = Cells(R, 4).Top + (Cells(R, 4).Height - .Height) / 2
End If
End With
Next R
End Sub
我们在excel对图片进行排版时,可以选中图片,勾选对齐网格,以及在插入图片或控件时,按住Alt键并拖动对象的边框,可以快速调整尺寸适应单元格大小。
excel批量导入图片案例二:
利用excel制作职工基本情况统计表,如果将公司所有员工的照片都粘贴在EXCEL中,会造成EXCEL文件臃肿不勘。附件提供的文件和方法只需将员工照片与EXCEL放在一个文件夹内即可快速调用。
随着C2单元格选择不同的姓名,所有的资料信息和对应的照片会自动发生改变。下面是一个截图。
excel批量导入图片案例三:
按照级别批量插入对应的军衔图片。
第一步:在H2单元格中输入下列公式,下拉填充至H9单元格:
="
猜你喜欢
- 在Excel中如果要隐藏某些单元格中的数据,可以用设置单元格格式的方法:右击需要隐藏数据的单元格,选择“设置单元格格式”命令,选
- 最近有很多朋友反映,使用快乐码字时不知道应该如何退出锁定,今天小编就整理了关于快乐码字解除锁定的方法介绍,感兴趣的朋友不妨阅读下文内容,或许
- Word 2007中如何实现多个文本框之间链接Word2007为用户提供了文本框之间链接的功能,两个文本框实现链接后,其中一个文本框不能输入
- 首先打开excel,所有的表格都是千篇一律的宽窄高低,这对于我们各种的资料录入,恐怕看起来并不是那么的美观,所以我们需要调整单元格的大小宽窄
- excel间隔取值常用于隔行隔列提取数值。excel间隔取值案例一:比如A列的数据,我们从第3行开始间隔取值,接着第7行,第11行,每隔固定
- 在excel表格中录入数据时,觉得行间距和列间距不符合字体的大小长度,应该怎么设置不同的间距呢?下面随小编一起来看看吧。excel设置行间距
- 在Word中设置好标题级别后,我们可以制作目录时,一次性快速生成目录。如果让所有标题都按照自己的标准来呢?今天,小编就给大家讲解Word20
- 有时候我们在Excel中不希望打印整张表格,只是想打印部分数据,例如要将多个不相邻区域的数据都打印在同一个页面上,在Excel 2010中该
- 与WORD可以同时打开多个编辑窗口不同,在编辑excel时通常只能在一个窗口中打开多个excel簿。这样对于分屏显示来说就很不方便,相信很多
- 里面讲了一些很实用的选择文本的技巧,由于平时还是经常会复制某篇文章里的部分文本,所以这里做一个简单的摘录。刚才在 Lifehacker 上看
- 有win10用户发现电脑在空闲时也会一直读写硬盘,这是怎么回事?要如何解决呢?遇到这种情况不要慌,下面小编就给大家分享一下解决方法。遇到同样
- Excel是三大办公软件之一,它主要的作用在于数据的分析、整理、查看、统计、对比等。输入长数字在excel中的数据统计中也会经常的用到,今天
- 平时在Word文档里添加页码的情况比较多见,大部分也知道如何操作。但实际工作中,有时候需要也需要插入页面,而且很多情况还是需要从指定页面开始
- 1、先将这几篇文章放至一个目录下;2、启动WPS文字;3、点击 插入->文件,然后在插入文件中选择你要合并文档的目录,并将文件类型调为
- 往往人事的工资员在制作工资条的时候会给每个工资条加一个固定的表头,用excel做工资表的时候,如何给每个工资条加一个固定的表头?很多人都是靠
- Airpods Pro已经很久没有更新了!今年苹果秋季发布会上有AirPods Pro 2吗?AirPods Pro 2什么时候发布?苹果去
- 一最合适用来开发Office外接程序的工具即使在VS2005中,仍然是VB.因为Office的对象内核依然是以VB的模式建立的.VB中有大量
- 本文介绍回归分析的目的,回归分析的目的大致可分为两种:第一,“预测”。预测目标变量,求解目标变量y和说明变量(x1,x2,…)的方程。y=a
- 众所周知excel是自带排序功能的,无论是数字还是字母,excel都有自己一个固定的排序方法。但是如果你遇上需要用自己的自定义序列给exce
- 作为管理或者统计工作者,往往从各个部门收集上来的数据填写非常不规范,比如下:A列中同样的设备,填写的名称不一样,这为后期的统计与分析带来麻烦