要批量插入圖片，而且圖片大小要根據單元格大小的變化進行自動調整，使用VBA編碼可以快速智能的做到：；比如a列是姓名，b列插入照片，下面是我寫的代碼；Sub圖片()；ForEachshpsInShapes；Ifshps.Type<>8Thenshps.Delete；Next；rw=Application.CountA([a:a])；ForEachaInRange("a2:a"&rw)；lujing=ThisWorkbook.Path&""&a&".jpg"；Setrg=Cells(a.Row,2)；Shapes.AddPicturelujing,True,True,rg.Left,rg.Top,rg.Width,rg.Height；Nexta；EndSub；點擊圖片可以看到執行結果，b列被調整時，圖片大小也隨之發生變化。