- 博客(0)
- 资源 (4)
- 收藏
- 关注
Excel2010VBA批量插入或导出图片
以前用Excel2003做了些宏,在网上还有不少粉丝,因一些功能在Excel2010中无法使用,故重新整理,欢迎指正;
本Excel中的宏在Excel2010中测试表现出色;
运行宏前,要保证EXCEL没有禁用宏。
Michael Ho QQ: 9900060
-----------------------
本Excel有以下功能:
插入图片1
1.点击执行后,会出现文件夹选择窗,请选择你JPG图片所在文件夹(选择“文件夹”而不是选择文件);
2.宏会自动复制Sheet2到新工作簿,并插入你所选文件夹中的全部JPG图片到B列,对应的图片名自动填到C列;
3.图片的大小会自动适应Sheet2的B3单元格,因此可以在点击执行前调整Sheet2的B3单元格的大小来控制插入图片的大小。
--------
插入图片2
1.点击执行后,会出现文件夹选择窗,请选择你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.可以结合插入图片的宏,将所有图片的旧名输入到Excel中,再在另一列中填上新图片名,然后使用该宏。
2.如果顺利运行,会在原来那个文件夹下面新建一个叫“New”的子文件夹,所有重命好名的图片会自动放入子文件夹里;
3.如果文件夹中已有相同名字的文件,则后面的文件会覆盖原来的文件。
2016-09-16
Excel 分栏, 像Word一样分栏, 排版
Excel 分栏 Excel Column Break
从网络找的,转载产品,希望大家喜欢.
Excel多排表工具V4.0简介
有的Excel表格列数很少,只有1至3列,而行数却很多,多达数百行,因此用这种版式打印存在两大问题:第一是每张纸的信息量较少,只有1至3列内容,打印效果也不够美观;第二是纸张得不到充分利用,需要大量纸张,造成纸张极大浪费。
“多排表工具”是用Excel vba 开发的加载宏,是用来解决行数多而列数少表格的实用工具,采用类似于Word及Wps的“分栏”功能,既能使版面更加美观、协调,又能节约大量纸张,具有操作简单、灵活,功能强大、实用的特点。
“多排表工具V4.0”比旧版本功能有明显增强和改进:
1、增加“自动修改表头”功能;
2、增加保存参数设置功能;
3、增加“生成链接多排表”功能;
4、增加自动检测源表行列数;
5、增加跟踪起始行号及终止行号位置功能;
6、修正旧版本部份错误。
2010-12-21
Excel自动插入图片
Excel自动插入图片
看到网上老是有人询问Excel自动插入图片的问题,刚好自己也很需要。看了看别人给出的答案,没有比较理想的方案,做了这3个文件,相信对外贸业务员或其它经常需要在Excel中插入图片的人非常有用。
1.自动插入当前文件夹所有图片到B列并将图片名填入A列.xls
2.自动插入当前文件夹所有图片和图片名制作目录快捷键ctrl+i
3.自动根据A列型号插入当前文件夹中用型号命名的jpg图片到B列.xls
注:
1.要能正常使用这些文件时,Excel中的宏的安全性级别不能为低,请放心这些宏是用来完成上述任务,并非病毒。
2.文件与图片必须在同一个文件夹.
3. Ctrl+i插入图片,Ctrl+d 删除文档所有图片.
4.图片必须是jpg文件,如果你通常是使用其它格式的图片,可以告诉我,稍作调整。
5.在发给客户和他人之前,请将Sheet1复制到新的Excel文件中,用新的文件发给他人,这样新文件中就不会含有宏代码,以免别人误认为你的文件有病毒。
6.如果插入较多的图片,可能导致Excel文件很大!您可以在Excel中按以下两种方式压缩图片:
(1)按顺序点击菜单:文件->另存为->工具-压缩图片"
(2)右键点击图片;在快捷菜单上选择显示或隐藏 '图片' 工具栏;点击 '图片' 工具栏上的 '压缩图片' 命令;选择 '应用于文档中所有图片' 后,单击确定。
Michael Ho
54mikeho*sohu.com
QQ:9900060
2010年
2010-06-19
ACCESS 2003导出图片到Excel
ACCESS 2003导出图片到Excel,每次打开数据库,只能成功导执行一次。
问题已解决: Selection前面加上xlapp 就可以了.谢谢.
2009-03-25
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人