level 1
贴吧用户_74tE4AS
楼主
用Excel vba的Active sheet.pictures.insert("图片路径"）·select可以插入具体的某一个图片，但是怎么让它自动插入图片文件夹下的图片，从第一个开始，在不给它具体图片具体名字的情况下
2025年01月15日 02点01分
1
直接指定位置就好
2025年01月15日 02点01分
level 4
level 12
Ai答复
Sub InsertPicturesUsingDir()
Dim picPath As String
Dim picFile As String
Dim ws As Worksheet
'设置要操作的工作表
Set ws = ActiveSheet
'指定图片文件夹路径
picPath = "C:\Your\Folder\Path\" '请将此处替换为实际的图片文件夹路径
picFile = Dir(picPath & "*.*")
Do While picFile <> ""
If LCase(Right(picFile, 3)) = "jpg" Or LCase(Right(picFile, 3)) = "png" Or LCase(Right(picFile, 4)) = "jpeg" Then
ws.Pictures.Insert(picPath & picFile).Select
End If
picFile = Dir
Loop
Set ws = Nothing
End Sub
2025年01月17日 10点01分
5
Sub InsertPicturesUsingDir()
Dim picPath As String
Dim picFile As String
Dim ws As Worksheet
'设置要操作的工作表
Set ws = ActiveSheet
'指定图片文件夹路径
picPath = "C:\Your\Folder\Path\" '请将此处替换为实际的图片文件夹路径
picFile = Dir(picPath & "*.*")
Do While picFile <> ""
If LCase(Right(picFile, 3)) = "jpg" Or LCase(Right(picFile, 3)) = "png" Or LCase(Right(picFile, 4)) = "jpeg" Then
ws.Pictures.Insert(picPath & picFile).Select
End If
picFile = Dir
Loop
Set ws = Nothing
End Sub