如何用VB向EXCEL单元格中插入图片

Sheet1. Range("H4").Select

Sheet1.Pictures.Insert("D:\vb\ceshiwenjian\1.bmp").Select

打开excel表格，利用录制宏，就可以找到你要的代码。

ActiveSheet.Pictures.Insert("D:\vb\ceshiwenjian\1.bmp").Select

Selection.ShapeRange.IncrementLeft 181.5

Selection.ShapeRange.IncrementTop 23.25

希望后面的人少走弯路，其中的ActiveSheet为当前活跃的表。

可以用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

1、打开Excel，准备好表格。

2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】。

3、接着点击菜单栏【插入】，在其下拉菜单中，选择【模块】。

4、在d出模块编辑窗口填入代码：Sub 导入图片()Dim sp As Shape, rng As Range, rg As Range, arg As RangeFor Each sp In Sheets("插入图片").ShapesIf sp.Type <>8 Thensp.Delete

Next spSet arg = Columns("a").End(xlDown)For Each rng In Range([a2], arg)pah = thisworkbook.Path &"\tupian\" &rng.Value &".jpg"。

5、在工作表的【开发工具】菜单下，插入一【表单】按钮，并与指定编写的插入图片代码关联，且进入命名为【导入图片】。

6、点击【导入图片】按钮，图片被瞬间导入。就完成了。

---