Excel2007表格中插入圖片批次插入不變形?使用者68616399992822019-07-31 00:19:22

要批次插入圖片,而且圖片大小要根據單元格大小的變化進行自動調整,使用VBA編碼可以快速智慧的做到:; 比如a列是姓名,b列插入照片,下面是我寫的程式碼;Sub 圖片();For Each shps In Shapes; If shps。Type <> 8 Then shps。Delete;Next;rw = Application。CountA([a:a]);For Each a In Range(“a2:a” & rw); lujing = ThisWorkbook。Path & “” & a & “。jpg”; Set rg = Cells(a。Row, 2); Shapes。AddPicture lujing, True, True, rg。Left, rg。Top, rg。Width, rg。Height;Next a;End Sub;點選圖片可以看到執行結果,b列被調整時,圖片大小也隨之發生變化。