可以用excel工具箱或者VBA。下面是列舉一種VBA插入圖片的方法。Range("B"&i).Select選定B列的第i個單元格ActiveSheet.Pictures.Insert(ThisWorkbook.Path&"\圖片\"&Cells(i,1)&".jpg").Select 這是插入圖片,括號裡面是插入圖片的路徑,我這裡寫的是和本excel同目錄下的圖片資料夾下的圖片cells(i,1)表示第一列的第i個單元格為圖片名稱。 Selection.ShapeRange.LockAspectRatio=msoTrue鎖定高寬比 Selection.ShapeRange.Height=200設定圖片高度,以免圖片插入變得很亂。200可以換成Rows(i).Height,這個就是表示第i行高度的方法。12345678Sub插入圖片() For i = 2 To [a65536].End(xlUp).Row Range("B"& i).Select ActiveSheet.Pictures.Insert(ThisWorkbook.Path &"\圖片\" & Cells(i, 1) & ".jpg").Select Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Height = 200 NextEnd Sub
可以用excel工具箱或者VBA。下面是列舉一種VBA插入圖片的方法。Range("B"&i).Select選定B列的第i個單元格ActiveSheet.Pictures.Insert(ThisWorkbook.Path&"\圖片\"&Cells(i,1)&".jpg").Select 這是插入圖片,括號裡面是插入圖片的路徑,我這裡寫的是和本excel同目錄下的圖片資料夾下的圖片cells(i,1)表示第一列的第i個單元格為圖片名稱。 Selection.ShapeRange.LockAspectRatio=msoTrue鎖定高寬比 Selection.ShapeRange.Height=200設定圖片高度,以免圖片插入變得很亂。200可以換成Rows(i).Height,這個就是表示第i行高度的方法。12345678Sub插入圖片() For i = 2 To [a65536].End(xlUp).Row Range("B"& i).Select ActiveSheet.Pictures.Insert(ThisWorkbook.Path &"\圖片\" & Cells(i, 1) & ".jpg").Select Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Height = 200 NextEnd Sub