Excel VBA從圖像名稱列中插入圖像

Question

如果插入圖像和重新調整大小的不同線程一直在讀取很多內容，但無法找到完全符合我想要的內容的內容。

所以說我有一個電子表格2行。列A是圖像列，列B是圖像名稱。

我想要一個腳本，它將遍歷列B中的每個值，將與該名稱匹配的圖像插入到A列的同一行中，將其大小調整爲適合大小爲150的單元格，大小爲18然後轉到下一行並通過電子表格重複。

Answer 1

這是一個將遍歷可修改的單元格範圍（B1：B100）的示例，並使用單元格左邊一列中的文件名（如此來自列A），並將圖像的大小以適應小區內B列

Sub InsertPic() 
Dim pic As String 'file path of pic 
Dim myPicture As Picture 'embedded pic 
Dim rng As Range 'range over which we will iterate 
Dim cl As Range 'iterator 

Set rng = Range("B7:B7") 
For Each cl In rng 
    pic = cl.Offset(0, -1) 

     Set myPicture = ActiveSheet.Pictures.Insert(pic) 
     ' 
     With myPicture 
      .ShapeRange.LockAspectRatio = msoFalse 
      .Width = cl.Width 
      .Height = cl.Height 
      .Top = Rows(cl.Row).Top 
      .Left = Columns(cl.Column).Left 
     End With 
     ' 

Next 

End Sub 

沒有錯誤處理在此代碼佔無效的文件名，你可能會想補充一點。