【原】在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

欢迎入群讨论！(QQ群)