vba一个文件夹一个sheet把文件夹里的图片导入进去设置高6厘米宽7厘米
时间: 2023-05-13 08:06:17 浏览: 61
以下是可以实现您所需功能的 VBA 代码:
```
Sub ImportImages()
Dim folderPath As String
Dim imagePath As String
Dim pic As Picture
Dim i As Integer
folderPath = "C:\Images\" '替换为您的文件夹路径
i = 1
'循环遍历文件夹中的所有图片
imagePath = Dir(folderPath & "*.jpg")
Do While imagePath <> ""
'将图片插入到新的工作表中
Set pic = ActiveSheet.Pictures.Insert(folderPath & imagePath)
'设置图片大小
pic.ShapeRange.LockAspectRatio = msoFalse
pic.Width = Application.CentimetersToPoints(7)
pic.Height = Application.CentimetersToPoints(6)
'将图片移到指定位置
pic.Left = ActiveSheet.Cells(i, 1).Left
pic.Top = ActiveSheet.Cells(i, 1).Top
'更新计数器和文件名
i = i + 1
imagePath = Dir
Loop
End Sub
```
请将代码复制到 VBA 编辑器中,然后按 F5 运行即可。