工作中很多情况下需要将多张图片按名称调取并插入到报表指定位置，很多人不得其法，只好手动费劲折腾，费时费力还容易出错......
今天分享一个一键配图的方法。
先来看下效果，觉得有用再看后面的具体操作步骤。
这个功能很酷吧！记得点赞哦~
这里的两个按钮后台的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
至此，大功告成！可以一键配图啦~
如果你觉得有用，就分享给朋友们看看吧~
更多的Excel应用技巧，可以点击文尾的“阅读原文”，获取更多教程。
今天就到这里，大家记得收藏此教程，明天见~
李 锐
微软全球最有价值专家MVP
新浪微博Excel垂直领域第一签约自媒体
百度名家，百度阅读认证作者
每日分享职场办公技巧原创教程
高效工作，快乐生活！
微博 @Excel_函数与公式
微信公众号（ExcelLiRui）
