在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群)
(0)

相关推荐