如何将图片插入到Excel表中

选中输入图号的单元格,用"插入->超链接->指向相应的图片文件(可以直接指向CAD文件)

这种用法因为同时运行两个程序,比较慢,需要耐心

打开需要插入图片的excel表格

点击菜单栏上”插入“——”图片“——”来自文件“

因为我是将图片存至桌面的，所以我选择的插入图片的位置是在桌面。选择需要插入的图片，点击打开即可

最后，插入图片的效果就出来啦！！点击表格中的图片是可以随意拖动的哟！！

具体步骤如下：

1、打开相应的Word文档。

2、将Word文档中的表格作适当编辑（比如合并若干个单元格，使之有足够的空间来插入图片）。合并单元格的具体办法是：先将要合并的单元格全部选中，然后点击【表格】菜单下的【合并单元格】即可。

3、将鼠标光标放在合并后的单元格里，然后点击【插入】菜单下的【图片】—【来自文件】。选好合适的图片后，点击【确定】。

4、在本地硬盘中选好合适的图片后，点击【确定】。效果如下：

5、这时如果需要对插入Word表格的图片继续进行编辑，可以使用“图片工具箱”（比如裁切等）。如果要缩放，可以直接拖动图片四周的角点。

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

---