Excel用HTML批量上传照片,Excel如何用VBA批量上传图片和批量添加批注图片

对于HR人员来说,一个一个添加人员照片是件很头疼很费劲的事,下面我就教大家怎么一键上传图片.

表中我用字母代替人员名称,这个你们可以更改,最主要的是,工作表中的名字一定要和文件夹中的图片命名相同.

附上文本篇代码,如下.

Sub 批量导图片()

Dim PHOT, I$, RG, z% '声明变量

z = Cells(Rows.Count, 1).End(3).Row '获取数据的最后一行号

For Each PHOT In Range('a2:a' & z) '在A列数据区循环

I = 'H:\头条\图片\' & PHOT & '.JPG' '将获取的图片地址赋值给变量

Set RG = Cells(PHOT.Row, 2) '将B列相应的单元格对象赋值给变量

'返回图片对象,并设定图片显示格式

ActiveSheet.Shapes.AddPicture I, True, True, RG.Left, RG.Top, RG.Width, RG.Height

Next

End Sub

有的人可能就想,把照片上传到单元格内太占空间了,影响审阅,有没有其它方法?

当人有,下面我就教大家怎么批量添加照片到批注里面.如下图所示,

附上文本篇代码,如下.

Sub 批量添加图片批注()

Dim rag, z% '声明变量

z = Cells(Rows.Count, 1).End(3).Row '获取数据的最后一行号

For Each rag In Range('a2:a' & z) '在A列数据区循环

rag.AddComment '为区域添加批注

rag.Comment.Shape.Fill.UserPicture 'H:\头条\图片\' & rag & '.JPG' '创建批注形状添加图片

rag.Comment.Shape.Height = 200 '设置图形高度

rag.Comment.Shape.Width = 150 '设置图形宽度

Next

End Sub

以上代码可以随意根据自己的需要改动,如有不懂的地方可以在评论指出,我会一一说明的.喜欢就关注我吧!

PS:欢迎你的点赞,分享和评论!