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