Excel批量插入图片VBA代码(2011-06-2408:56:26)转载标签：excel批量插入图片代码杂谈在要插入图片的文件夹里新建一个Excel文件，打开这个Excel文件，在要插入图片的单元格里填上图片文件名（不要扩展名），选中要插入图片的单元格，修改单元格的大小以显示所需要的图片大小，运行宏代码。1、Alt+F11调取VBA编辑窗口，查看代码，将以下代码全部复制进去；2、关闭VBA窗口，Excel-视图-宏-查看宏；3、Book1.xls!Sheet1.insertPic，选中所要插入图片的单元格，执行；4、图片自动插入对应的单元格中。（图片尺寸均可通过单元格大小进行调解，边框可设置）代码如下：SubinsertPic()'宏由www.winekar.com万加美酒编写，时间:2009-6-1'Dir函数批量获取指定目录下所有文件名和内容OnErrorResumeNextApplication.ScreenUpdating=False'关闭屏幕更新DimMRAsRangeForEachMRInSelectionIfNotIsEmpty(MR)AndDir(ActiveWorkbook.Path&"\"&MR.Value&".jpg")<>""ThenMR.SelectML=MR.LeftMT=MR.TopMW=MR.WidthMH=MR.HeightActiveSheet.Shapes.AddShape(msoShapeRectangle,ML,MT,MW,MH).SelectSelection.ShapeRange.Fill.UserPicture_ActiveWorkbook.Path&"\"&MR.Value&".jpg"'当前文件所在目录下以当前单元内容为名称的.jpg图片EndIfNextSetMR=NothingApplication.ScreenUpdating=True'开启屏幕更新EndSub我想"按一下按钮，插入图片"我的vbacode如下:SubPicture_Click_06202010()x=Cells(8,4).ValueChDir"C:\Users\myname\Desktop\picture\"ActiveSheet.Pictures.Insert"x"+".jpg"EndSub***cells(8,4)的值是图片的名称我的vbacode有错...ActiveSheet.Pictures.Insert("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="工作表保护密码"ConstVERSIONAsString=DBLSPACE&"版本Version1.1.1"ConstREPBACKAsString=DBLSPACE&""ConstZHENGLIAsString=DBLSPACE&"eric"ConstALLCLEARAsString=DBLSPACE&"该工作簿中的工作表密码保护已全部解除。"&DBLSPACE&"请记得重新设置密码"_&DBLSPACE&"注意：此方法仅用于遗忘密码使用。"ConstMSGNOPWORDS1AsString="该文件工作表中没有加密"ConstMSGNOPWORDS2AsString="该文件工作表中没有加密2"ConstMSGTAKETIMEAsString="请耐心等候!"&DBLSPACE&"按确定开始回复"ConstMSGPWORDFOUND1AsString="密码重新组合为:"&DBLSPACE&"$$"&DBLSPACE&_"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"ConstMSGPWORDFOUND2AsString="密码重新组合为:"&DBLSPACE&"$$"&DBLSPACE&_"如果该