在EXCEL中如何快速插入图片
前言
今天研究一下如何快速在EXCEL中插入相应的图片！
根据项目的名称，插入项目的图片，还可以应用在其它场景，如产品名录，员工记录、设备清单等等，如果条目较少，可以手动操作，但是如果有上百条记录的话，建议静下心来，好好看看下面的文章，希望对你有所启示！
1确保图片名称和项目名称保持严格一致
表格设计：
图片所在文件夹：根据项目名称命名图片文件名
2编程代码
按ALT+F11，打开VBA 编辑器，复制下列代码，将鼠标放置在代码任意位置，按F5运行程序即可。
Sub Insertpicture()
For I = 2 To 6
Rows(I).RowHeight = 88
Cells(I, 2).Select
ActiveSheet.Pictures.Insert("F:\项目图片\" &Cells(I, 1) & ".JPG").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.IncrementTop 4
Selection.ShapeRange.IncrementLeft 4
Selection.ShapeRange.Height = 80
Selection.ShapeRange.Width = 108
Selection.ShapeRange.Rotation = 0
Next
End Sub
3解释
Rows(I).RowHeight = 88‘设置行高88
Cells(I, 2).Select‘选择单元格Cells(I,2)
ActiveSheet.Pictures.Insert("F:\项目图片\"& Cells(I, 1) & ".JPG").Select‘插入图片，名称为图片路径+CELLS(I,1)+后缀名
Selection.ShapeRange.LockAspectRatio =msoFalse‘设置图片锁定比例为不锁定
Selection.ShapeRange.IncrementTop 4‘增加垂直移动4
Selection.ShapeRange.IncrementLeft 4‘增加水平移动4
Selection.ShapeRange.Height = 80‘设置图片高度80
Selection.ShapeRange.Width = 108‘设置图片宽度108
Selection.ShapeRange.Rotation = 0‘设置图片旋转角度0
For ….Next为循环语句
结果如下：
总结
重复的事情交给电脑，VBA帮你完成！
END