EXCEL插入多张图片

来源：百度知道 编辑：UC知道 时间：2024/05/29 03:41:50
在EXCEL中，能不能在同一列中，每一个单元格中同时各插入一张图片？？？
我试过点击插入的时候选择多张图片，但是插入的图片不是在同一列的，有高手知道这个问题如何解决吗？在这，我先谢谢了

用一个宏
Sub Macro1()

introw = 2
ActiveSheet.Pictures.Delete '删除表中图片
Range("A" + Trim(Str(introw))).Select

Do While ActiveCell.FormulaR1C1 <> "" '判断当前单元格的值是否为空，空则结束
k = ActiveCell.FormulaR1C1
Range("G" + Trim(Str(introw))).Select

'ActiveWindow.SmallScroll Down:=0 关闭当时窗口

ActiveSheet.Pictures.Insert(ThisWorkbook.Path + "\" + k + ".jpg"). _
Select '插入图片，ThisWorkbook.Path表示图片与EXCEL文件同一文件夹

'On Error Resume Next '避免找不到同名图片出错,继续执行下一句命令
On Error GoTo ErrorHandler '避免找不到同名图片出错,跳到ErrorHandler执行

Selection.ShapeRange.Height =