Excel VBA代码：批量插入指定目录下指定类型所有图片
发布时间：2022-10-12 09:30:08
批量插入指定目录下指定类型所有图片Excel VBA代码：
Sub insertimg()
””””””””””””””””””””””'
‘ 批量插入指定目录下所有指定类型图片 ‘
‘ ‘
””””””””””””””””””””””'
Dim mypath As String, nm As String
Dim theSh As Object
Dim theFolder As Object
Dim i As Integer
Application.ScreenUpdating = False ‘关闭屏幕更新
On Error Resume Next
‘设置搜索路径
Set theSh = CreateObject("shell.application")
Set theFolder = theSh.BrowseForFolder(0, "", 0, "")
If Not theFolder Is Nothing Then
mypath = theFolder.Items.Item.Path
End If
‘//////////////搜索并插入图片开始////////////////
nm = Dir(mypath & "\*.jpg")
‘第一次使用dir，必须指定pathname参数，返回符合条件的第1个文件名，修改扩展名可以查其它文件类型。
Do While nm <> ""
With Range("a" & i + 1)
ActiveSheet.Shapes.AddShape(msoShapeRectangle, .Left, .Top, .Width, .Height).Select
Selection.ShapeRange.Fill.UserPicture mypath & "\" & nm ‘插入图片
End With
i = i + 1
nm = Dir ‘再次调用不需要pathname参数
Loop
Set sh = Nothing ‘释放内存
Set theFolder = Nothing ‘释放内存
Application.ScreenUpdating = True ‘开启屏幕更新
End Sub
0
投稿猜你喜欢
日前，微软操作系统部门老大Terry Myerson在微软官方博客发表博文，正式宣布更改Windows支持政策。为了普及Windows 10- 文章介绍excel中用vba宏代码来进行合并单元格的操作过程，以及用VBA宏代码语句判断单元格是否为合并单元格。以前的文章介绍excel合并
- 当电脑越来越普及之后，使用win10系统的用户也越来越多，平常遇到的问题也会越来越多，当我们的win10桌面不全屏有黑边时，我们该如何解决这
- Excel已经是很常用的办公软件了，但仍有人不知道如何实现自动累加，不过在这里没有关系了，小编把你教会，接下来不多说了，请大家跟小编学习Ex
- 谷歌浏览器dns不可用怎么办？有用户开启谷歌浏览器来使用的时候，网页显示自己的电脑dns错误无法进行正常的网络连接。那么这样的情况如何自己去
- 第一种：操作步骤如下：1、在第4页的最后一行的行尾点一下鼠标，然后选择—插入—分隔符—下一页，确定。2、视图—页眉页脚，在页眉页脚工具条上点
- 无论是在工作或家庭中以及一些突发事件，都不免感受到压力和焦虑。但我们可以通过手腕上的 Apple Watch 辅助进入平静的状态，我们来看看
- 在Excel的报表中，有时需要对数据区域统计满足多个条件的总和，可以使用SUM函数来统计满足多个条件的总和。Excel2007可使用SUMI
- 你知道怎样将wps表格转换为excel文件 吗?下面就让小编告诉你wps表格转换成excel 的方法，希望对大家有所帮助。wps表格转换成e
- wps怎么制作春节倒计时？wps中想要制作一个春节倒计时，该怎么制作计时器呢？下面我们就来看看wps倒计时效果的制作方法，需要的朋友可以参考
- 相信很多的朋友现在都有着只属于自己的电脑吧。而且时代进步，以前都是运用光驱驱动盘来装系统，现在渐渐的这种方法已经消失了，逐渐用u盘来安装系统
- AImersoft Video Converter Ultimate mac可以快速视频转换器还可以从YouTube，Hulu，Vimeo和
- 最近win7用户遇到一个很奇怪的现象，就是在本地播放视频或音乐都有声音，但是只要在网页上在线收看视频或
- office是最流行的办公组件，因为office软件收费，所以要花钱购买序列号和激活码第一步：确定电脑的内存。如果内存超过4G，就安装64位
- Edge浏览器发现按钮怎么关闭？近期有一些电脑用户反映在更新完电脑后，发现Edge浏览器右上角多了个必应的发现图标，想要将其关闭，那么应该怎
- 使用Microsoft Word应用程序组织和编写文档时，可能会出现需要调整文档结构的情况，而通过剪切、复制、粘贴操作来解决问题，可能会花费
- 「终端」是一个特殊的应用，可用于执行一些特殊的命令。通过它，你可以直接向你的 Mac 发出特殊指令。一般人在一般情况下很少会用到它。正因为一
- 记事本是win7里附带的一个功能，它能以txt格式打开各类文档，但是有的用户在使用的时候，却发现自己的记事本打开全是乱码，怎么编辑都没办法恢
- Excel中经常需要把列数据的网格线进行一个拉伸的操作，表格列的网格线具体该如何进行拉伸呢?下面是小编带来的关于excel表格列进行网格线拉
- 每台电脑都有一个初始的账户密码，通常用户都会修改密码。有用户反应想要使用并恢复原来的初始密码，发现无法恢复。遇到这个问题要怎么解决呢？下面小
