工作表中批量插入同一文件夹下图片到单元格中并对准..docVIP

工作表中批量插入同一文件夹下图片到单元格中并对准 8楼代码已经完全改变思路，效率更高更可靠。 本楼代码可以无视，仅作学习参考用。 Sub PicBatchIn() K = InputBox(请输入插入图片换行数，默认10张, 插入图片换行数, 10) 指定插入满10张图片后换行。当然可以根据需要改成k=5或者k=20之类的。 If K = Then K = 1 如果选择ESC退出输入对话框，则把k值设定为1，即在同一列中按行插入。 Dim r As Range: Set r = ActiveCell 指定当前单元格为开始插入图片的位置。 OpenFile = Application.GetOpenFilename(Picture Files(*.jpg),*.jpg, , Get Picture from here!) 找到目标文件夹，并随便选取一张jpg图片。 如果图片格式不是*.jpg，请修改代码，如同下面： OpenFile = Application.GetOpenFilename(Picture Files(*.bmp),*.bmp, , Get Picture from here!) 找到目标文件夹，并随便选取一张bmp图片。 If OpenFile = False Then Exit Sub 如果选择为空或E