Excel中图片那些事
原创作者 | 李锐
微信公众号 | Excel函数与公式（ID：ExcelLiRui）
微信个人号 | （ID：ExcelLiRui520）
Excel中图片那些事
工作中免不了要跟图片打交道，Excel中处理图片的时候有很多技巧！
1 快速将表格转为图片
2 图片跟随报表同步更新
3 批量导出图片
4 批量删除图片
5 打印时忽略图片
6 一键配图，批量插入图片至指定位置
7 动态引用图片
1 快速将表格转为图片
要将报表转为图片就用这招吧，再也不用担心给领导手机发的报表截图不清晰了。
我的操作演示效果（下图gif动态演示）
2 图片跟随报表同步更新
要让图片跟随报表同步数据更新，就用这招！
我的操作演示效果（下图gif动态演示）
3 批量导出图片
要将报表里面包含的多张图片批量导出，用这招！
我的操作演示效果（单击下图gif动态演示）
1、修改文件后缀名为rar。
2、打开rar压缩包，找到xl文件夹下的media子文件夹。
3、将media文件夹内的图片复制到你想要放置图片的位置。
好啦，这就搞定了！
简单吧！小技巧也有大用途哦！想系统学习更多技巧，长按下图扫码。
4 批量删除图片
报表里包含很多图片，可以一次性删除。
我的操作演示效果（单击下图gif动态演示）
5 打印时忽略图片
打印的时候，只想打印数据，不想打印照片，就用这招吧！
我的操作演示效果（单击下图gif动态演示）
6 一键配图，批量插入图片至指定位置
工作中很多情况下需要将多张图片按名称调取并插入到报表指定位置，很多人不得其法，只好手动费劲折腾，费时费力还容易出错......
今天分享一个一键配图的方法。
先点击下面的gif动图看下效果，觉得有用再看后面的具体操作步骤。
这个功能很酷吧！记得帮在文章底部点赞
这里的两个按钮后台的vba代码如下。
Sub 配图()
Dim rg As Range, path$
Application.ScreenUpdating = False
path = ThisWorkbook.path & "\jpg\"
For Each p In ActiveSheet.Pictures
p.Delete
Next
For Each rg In [a1].CurrentRegion
If Dir(path & rg.Value & ".jpg") <> "" Then
ActiveSheet.Pictures.Insert(path & rg.Value & ".jpg").Select
With Selection.ShapeRange
.Top = rg.Top + 10
.Left = rg.Left + 10
.Height = rg.Height - 20
.Width = rg.Width - 20
End With
End If
Next
Application.ScreenUpdating = True
End Sub
Sub 清图()
For Each sp In ActiveSheet.Shapes
If sp.Type <> 8 And sp.Type = 11 Then sp.Delete
Next
End Sub
至此，大功告成！可以一键配图啦~
7 动态引用图片
工作中很多情况下需要按条件调取图片，比如员工照片、产品图等，但99%的人只会手动复制粘贴图片，其实Excel为我们提供了根据条件动态调取图片的功能，只是你不会而已。
今天分享一个HR常会遇到的需求的解决方案，介绍根据姓名调取员工照片的方法。
先点击下面的gif动图看下效果，觉得有用再看后面的具体操作步骤。
这个功能很酷吧！记得点赞哦~
你一定觉得这么酷的技巧肯定很难学吧，错啦，其实这个实现起来很简单，只需5步就能搞定！下面介绍具体操作步骤。
步骤1：准备好数据源，在工作表“信息库”里登记员工的信息与部门归属，如下图所示。
步骤2：按照J:M列所示，分别定义4个名称“部门”、“大陆”、“香港”、“韩国”，如下图所示。
步骤3：创建工作表“照片”，将员工的姓名和照片对应放置在A列和B列，如下图所示。
步骤4：定义名称“照片”，如下图所示。
照片=INDEX(照片!$B:$B,MATCH(员工档案表!$D$2,照片!$A:$A,))
步骤5：将“照片”工作表中的任意照片复制到工作表“员工档案表”，单击照片后在编辑栏输入“=照片”。
至此，大功告成！可以动态调取图片啦~
如果你觉得有用，就分享给朋友们看看吧~
别忘了帮忙去底部点赞
>>推荐阅读 <<
（点击蓝字可直接跳转）
vlookup丨sum丨if丨countif丨sumif丨sumproduct
index丨match丨datedif丨frequency丨个税丨年终奖
点“阅读原文”进入直播间+关注，不再错过精彩！