要批次插入圖片，而且圖片大小要根據單元格大小的變化進行自動調整，使用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列被調整時，圖片大小也隨之發生變化。
要批次插入圖片，而且圖片大小要根據單元格大小的變化進行自動調整，使用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列被調整時，圖片大小也隨之發生變化。