Excel批量插入图片VBA代码.docVIP

Excel 批量插入图片 VBA代码(2011-06-24 08:56:26)转载标签： excel批量插入图片代码杂谈 在要插入图片的文件夹里新建一个Excel文件，打开这个Excel文件，在要插入图片的单元格里填上图片文件名（不要扩展名），选中要插入图片的单元格，修改单元格的大小以显示所需要的图片大小，运行宏代码。 1、Alt+F11调取VBA编辑窗口，查看代码，将以下代码全部复制进去； 2、关闭VBA窗口，Excel-视图-宏-查看宏； 3、Book1.xls!Sheet1.insertPic，选中所要插入图片的单元格，执行； 4、图片自动插入对应的单元格中。（图片尺寸均可通过单元格大小进行调解，边框可设置） 代码如下： Sub insertPic() 宏由 万加美酒编写，时间: 2009-6-1 Dir函数批量获取指定目录下所有文件名和内容 On Error Resume Next Application.ScreenUpdating = False 关闭屏幕更新 Dim MR As Range For Each MR In Selection If Not IsEmpty(MR) And Dir(ActiveWorkbook.Path \ MR.Value .jpg) Then MR.Select ML = MR.Left MT = MR.Top MW