很多人一直想要却得不到的功能根

　　功能：1，自动根据关键字填充照片；2，自动调整图片大小到合并单元格（有贴边拉伸填充和保持长宽比不变形填充两种可选）3，支持根据同一关键字填充多张不同位置且不同填充单元格的照片插入。先看效果
　　说明1：这次的操作需要用到VBA，但是别担心，所有代码我都会在文档中贴出开，直接复制粘贴即可启用，且每个代码过程都加了注释，方便你知道从哪里更改参数以适应你的表格；2：如果你有操作不通的或者我没说明白的过程，请留言，我会第一时间给解答；3：如果你对VBA是拒绝的，我怎么会想不到，文尾我列出了另一种不用代码的纯公式批量插入图片的方法，你可以研究下
　　第一步：创建信息表单。这次主要用到的公式还是万能的vlookup，不熟悉的可以看下图回顾下啦，文字部分都是利用vlookup函数联立的，看不懂的可以翻翻我前面分享的文章https：www。toutiao。comi6489852874195993102
　　第二步，建立VBA调用图片过程，需要打开电脑开发者选项，如果你的EXCEL中没有这个选项，请参考下图打开
　　建立函数的过程比较简单，直接复制粘贴就行了，这个调用过程实现的方式有很多，我看到的版本都不下五个，但针对本次案例的需求而言吗，下面这段代码还是比较精简合适的
　　请在模块中粘贴一下代码
　　Sub调用图片（）以下是填充照片的过程代码
　　aRange（g3）。Value
　　Range（g3）。Select
　　ActiveSheet。Pictures。Insert（ActiveWorkbook。P照片。jpg）。Select
　　将以单元格B3为名字的图片按照设定的路径调用出来
　　WithSelection
　　ahRange（Range（g3）。MergeArea。Address）。Height赋值（合并）单元高度
　　awRange（Range（g3）。MergeArea。Address）。Width赋值（合并）单元宽度
　　ayRange（g3）。MergeArea。Top赋值图片高度
　　axRange（g3）。MergeArea。Left赋值图片宽度
　　。ShapeRange。LockAspectRatiomsoFalse
　　。PlacementxlMoveAndSize
　　。Heightah2设置图片高度
　　。Widthaw2设置图片宽度
　　。Topay1设置图片纵向起点（即图片左上角的纵向位置）
　　。Leftax1设置图片横向起点（即图片左上角的横向位置）
　　EndWith
　　ActiveCell。Select获得焦点
　　EndSub
　　Sub删除图片（）以下是删除照片的过程代码
　　ForEachimInActiveSheet。Pictures
　　im。Delete
　　Next
　　EndSub
　　请在制表sheet中粘贴以下代码
　　OptionExplicit强制进行变量声明
　　PrivateSubWorksheetchange（ByValTargetAsRange）
　　OnErrorResumeNext如果有错误，忽略掉，继续执行VBA代码，避免出现错误警告
　　Application。ScreenUpdatingFalse屏幕刷新关闭
　　IfNotApplication。Intersect（Target，Range（B3））IsNothingThen
　　Call删除图片
　　Range（G3）Target。Value将目标位置的值赋予给G3（照片）所在的合并单元格
　　Call调用图片
　　EndIf
　　Range（Target。Address）。Select
　　Application。ScreenUpdatingTrue屏幕刷新打开
　　OnErrorGoTo0恢复错误提示
　　EndSub
　　第三步，根据需要，增加需要填充的图片及位置，对应参数的更改只需要参照下面示意在原来的代码上复制粘贴就好
　　第四部，调整图片填充模式，上述代码默认的是拉伸填充形式，就是不管照片比例如何，将照片强制拉伸至与单元格四个边对齐，这会照成人像变形，为了尊重以人为本的理念，请参照下示例替换如下代码：
　　ahRange（Range（g3）。MergeArea。Address）。Height（合并）单元高度
　　awRange（Range（g3）。MergeArea。Address）。Width（合并）单元宽度
　　ay。Height图片高度
　　ax。Width图片宽度
　　。ShapeRange。LockAspectRatiomsoTrue
　　。PlacementxlMoveAndSize
　　scApplication。WorksheetFunction。Min（ahay，awax）单元与图片之间长宽差异比例的最小值
　　。Heightaysc2按比例调整图片宽度
　　。Widthaxsc2按比例调整图片高度
　　。TopRange（g3）。MergeArea。Top（Range（g3）。MergeArea。Height。Height）20。5垂直居中：
　　。LeftRange（g3）。MergeArea。Left（Range（g3）。MergeArea。Width。Width）20。5水平居中：
　　注意：1。保存带有VBA宏代码的excel，需要以。xlsm格式保存，2。excel表需要与存放图片的文件夹在同一位置（注意是表格与文件夹在同一位置，不是与图片在同一位置），不然图片无法调取；复制代码请在电脑端查看，不然会遇到换行出错
　　下面列出一种不需要代码批量插入图片的技巧，过程比较详细，我就不多啰嗦了，至于联立信息卡里边的调用图片，我想放在下次一起分享。代码供上：
　　今天分享的内容对于没有用过VBA的小伙伴而言需要花点耐心去研究，对于大学VB课没挂掉的伙伴没有难度，希望你能花点时间研究下。如果有啥整不过去的地方，留言，请留言。
　　AOskill专注于分享Adobeoffice系列软件的实用技巧，让你的办公更懒更高效，如果对你有帮助，点波关注啦。