文档介绍：Excel批量插入图片VBA代码(2011-06-2408:56:26)转载标签:excel批量插入图片代码杂谈在要插入图片的文件夹里新建一个Excel文件,打开这个Excel文件,在要插入图片的单元格里填上图片文件名(不要扩展名),选中要插入图片的单元格,修改单元格的大小以显示所需要的图片大小,运行宏代码。1、Alt+F11调取VBA编辑窗口,查看代码,将以下代码全部复制进去;2、关闭VBA窗口,Excel-视图-宏-查看宏;3、!,选中所要插入图片的单元格,执行;4、图片自动插入对应的单元格中。(图片尺寸均可通过单元格大小进行调解,边框可设置)代码如下:SubinsertPic()'宏由编写,时间:2009-6-1'=False'关闭屏幕更新DimMRAsRangeForEachMRInSelectionIfNotIsEmpty(MR)AndDir(&"\"&&".jpg")<>""====(msoShapeRectangle,ML,MT,MW,MH).&"\"&&".jpg"'==True'开启屏幕更新EndSub我想"按一下按钮,插入图片"我的vbacode如下:SubPicture_Click_06202010()x=Cells(8,4).ValueChDir"C:\Users\myname\Desktop\picture\""x"+".jpg"EndSub***cells(8,4)的值是图片的名称我的vbacode有错...("C:\Users\myname\Desktop\picture\"&x&".jpg")插入档案时请用全路径,不要用ChDir变更工作路径,因为ChDir无法处理变更工作磁盘。Excel,遗忘密码后如何撤销工作表保护密码1、打开您需要撤销保护密码的Excel文件;2、依次点击菜单栏上的工具---宏----录制新宏,输入宏名字如:ab;3、停止录制(这样得到一个空宏);4、依次点击菜单栏上的工具---宏----宏,选ab,点编辑按钮;5、删除窗口中的所有字符(只有几个),替换为以下内容;PublicSub工作表保护密码()ConstDBLSPACEAsString=vbNewLine&vbNewLineConstAUTHORSAsString=DBLSPACE&vbNewLine&_"作者:eric"ConstHEADERAsString="工作表