Question

如何通过VB？快速向表格里添加图片？

图片名为 1.jpg 2.jpg 3.jpg 4.jpg
如何快速添加图片到 图片列 里？最好还能按单元格大小自动缩放

Answer 1

可以用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行高度的方法。

Sub插入图片()    
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    
Next
End Sub

追问

能麻烦在详细些吗？从来没有用过VBA