EXCEL VBA批量导入图片(方法二）
可以使用VBA编程来实现Excel批量导入图片的功能。具体步骤如下：
1. 在VBA编辑器中，新建一个模块，并输入以下代码：
Sub InsertPictures()
Dim picName As String
Dim picPath As String
picPath = "C:UsersPictures"
picName = Dir(picPath & "*.jpg")
Do While picName <> ""
ActiveSheet.Pictures.Insert(picPath & picName).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 100
Selection.ShapeRange.Width = 100
picName = Dir
Loop
End Sub
2. 将图片放入指定的文件夹中，并将文件夹路径替换掉上面代码中的picPath变量。
3. 运行上面的代码，即可实现Excel批量导入图片的功能。
