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

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 '設置圖形寬度

End Sub

以上代碼可以隨意根據自己的需要改動,如有不懂的地方可以在評論指出,我會一一說明的.喜歡就關注我吧!

PS:歡迎你的點贊,分享和評論!