在EXCEL的单元格里批量插入图片

最新推荐文章于 2024-07-30 23:07:24 发布

eiFei~

最新推荐文章于 2024-07-30 23:07:24 发布

阅读量1k

点赞数

分类专栏：快捷小工具文章标签：其他

本文链接：https://blog.csdn.net/weixin_42045753/article/details/123529782

版权

快捷小工具专栏收录该内容

1 篇文章

订阅专栏

ALT+F11打开VBA编辑器，点击插入->模块

Sub insert()
Dim myPath$, myFile$, c As Range
myPath = "E:路径\"
myFile = Dir(myPath & "*" + "_transmission.png")
For Each c In Range("b3:b52")
With c
If myFile <> "" Then
ActiveSheet.Shapes.AddPicture myPath & myFile, True, True, .Left, .Top, .Width, .Height
myFile = Dir
Else: Exit For
End If
End With
Next
End Sub