根據所給名稱找到相應圖片，并進行導入。

代碼如下：

Sub Import_picture() For Each shap In Sheet1.Shapes '在sheet1中的圖片對象進行循環If shap.Type <> 8 Then shap.Delete '在插入圖片之前刪除以前插入的圖片，但不刪除命令按鈕 Next shap For Each Rng In Range([a1], Cells(Application.CountA(Columns(1)), 1)) '建立姓名循環區域i = ThisWorkbook.Path & "\picture\" & Rng & ".jpg" '找出圖片的存放的磁盤位置Set rngs = Cells(Rng.Row, 2) '建立插入圖片的位置區域Sheet1.Shapes.AddPicture i, True, True, rngs.Left, rngs.Top, rngs.Width, rngs.Height '插入圖片，設置圖片的坐標位置 Next Rng '繼續循環插入直到循環結束。 End Sub

　　

?

點擊“導入圖片按鈕”后

實例附件下載：點擊下載

?

總結

以上是生活随笔為你收集整理的EXCLE图形插入实例的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。