Excel2010VBA批量插入或导出图片

Excel2010VBA批量插入或导出图片
以前用Excel2003做了些宏，在网上还有不少粉丝，因一些功能在Excel2010中无法使用，故重新整理，欢迎指正；
本Excel中的宏在Excel2010中测试表现出色;运行宏前，要保证EXCEL没有禁用宏。
MichaelHoQQ:9900060-----------------------本Excel有以下功能：插入图片11.点击执行后，会出现文件夹选择窗，请选择你JPG图片所在文件夹(选择“文件夹”而不是选择文件)；
2.宏会自动复制Sheet2到新工作簿，并插入你所选文件夹中的全部JPG图片到B列，对应的图片名自动填到C列；
3.图片的大小会自动适应Sheet2的B3单元格，因此可以在点击执行前调整Sheet2的B3单元格的大小来控制插入图片的大小。
--------插入图片21.点击执行后，会出现文件夹选择窗，请选择你JPG图片所在文件夹(选择“文件夹”而不是选择文件)；
2.宏会自动复制Sheet3到新工作簿，并插入你所选文件夹中的全部JPG图片制作图册，对应的图片名自动填到图片下方；
--------插入图片3如果用户自己的Excel文件中有一列是型号，该宏可以插入指定文件夹里以型号命名的JPG图片到另一列；
1.打开本Excel文件，不要关闭；
2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表；
3.在你的文件中按Ctrl+I(或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏InsertPic3）；
4.然后会出现文件夹选择窗，请选择你JPG图片所在文件夹(选择“文件夹”而不是选择文件)；
5.在弹出的对话框中指定型号在第几列，图片要插入到第几列，以及从哪一行开始；
6.图片的大小会自动适应你设定的第一行要插入图片的单元格，因此提前调整那个单元格的大小可以控制插入图片的大小。
-------------删除活动工作表中所有图片Ctrl+d删除活动工作表里所有的JPG图片，（不一定是本工作簿中的工作表）；
1.打开本Excel文件，不要关闭；
2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表；
3.在你的文件中按Ctrl+d(或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏DelPic）；
-------------导出活动工作表中被选中的一张JPG图片Ctrl+e导出活动工作表中被选中的一张JPG图片，（不一定是本工作簿中的工作表）；
1.打开本Excel文件，不要关闭；
2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表；
3.请选中一张要导出的图片；
4.在你的文件中按Ctrl+e(或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏OutputOnePic）；
5.在弹出的对话框中指定图片要保存的名字；
1.不管图片在Excel中是否被缩放过，导出的图片是按图片的原始尺寸进行保存。
2.在桌面上会自动新建一个"OutputPic"的文件夹，导出的图片将会存在那个文夹里；
3.如果文件夹中已有相同名字的文件，则后面导出的文件会自动加上(v1),(v2),(v3)...-------------导出活动工作表中所有JPG图片Ctrl+f导出活动工作表中所有JPG图片，并且图片名自动使用指定列中的图片名；
1.打开本Excel文件，不要关闭；
2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表；
3.在你的文件中按Ctrl+f(或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏OutputAllPic）；
4.在弹出的对话框中指定图片所在列，图片名所在的列；
1.不管图片在Excel中是否被缩放过，导出的图片是按图片的原始尺寸进行保存；
2.在桌面上会自动新建一个"OutputPic"的文件夹，所有导出的图片将会存在那个文夹里；
3.如果文件夹中已有相同名字的文件，则后面导出的文件会自动加上(v1),(v2),(v3)...----------------对指定文件夹中的JPG图片进行重命名Ctrl+r利用活动工作表中的所有图片的旧名与新名的对照，对指定文件夹中JPG图片进行重命名；
1.打开本Excel文件，不要关闭；
2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表；
3.在你的文件中按Ctrl+r(或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏RenamePic）；
4.在弹出的对话框中指定图片旧名所在列和图片新名所在的列；
1.可以结合插入图片的宏， 本软件ID:9631485