沐浴阳光的SK猫

享受黑夜,期盼黎明

« 多普达575刷机摘要网站重构,又见《网站重构》 »

EXCEL批量导入图片


之前在小桥流水看到有人问怎样在Excel批量导入图片,随手写了个宏,没想到今天又有人问我,中午把VBA小改一下

图片用1.jpg 2.jpg 3.jpg ... 10.jpg 12.jpg依次命名

图片间隔是2张相邻图片左上角的间隔,例如图片尺寸100像素,间隔写100就刚好紧挨着

默认开始位置是以选择框所在位置,例如下图,选择框在B2,图片就从B2开始排列了

演示下载,解压到D盘就可以直接执行了,如果打开弹出提示窗口,是因为你Excel安全性设置高,没事,一样可以执行

VBA代码如下




  • quote 3.sithere
  • 我转了你这篇文章,在我的博客http://blog.sithere.net,并添加了一些注释,还提供了在本机所有的Excel文档中执行宏的办法,另外还加入了快捷键

    文档地址
    http://blog.sithere.net/blogedit.asp?id=1414
    C.A.T. 于 2008-1-28 13:58:54 回复
    Haha
    C.A.T. 于 2008-1-28 13:59:11 回复
    Haha
  • 2007-12-7 11:45:09 回复该留言
  • quote 2.shine
  • 大侠,你好!看到你的文章真是太好了,我正好需要这样的一个程序来解脱天天点导入图片,然后每个拖拉,然后点击图片属性进行调整,看到你的程序,就如久旱逢甘霖一样,真是太感谢了!
    因为我不太懂这些编程的,而且我要求的跟你程序的不一样,我要求的是固定不知雪猫兄能不能帮我实现如下功能: 在一个A4纸张内,设置好固定好行距和列距(因为图片还要加一点说明的,也就是说一个大的行距下面还有一个小的行距。),又因为图片的尺寸大小是不一样的(而且图片很多,可能要分好几页来的),要求他们能最大自适应到里面。如果不能自适应的话,不知能不能实现比如说是图片尺寸的宽度固定呢?
    如果能实现的话,可以发到我的邮箱吗? hhl668@hotmail.com
    不胜感激!
    C.A.T. 于 2007-10-29 14:13:45 回复
    可以实现,细看上面程序注释,图片尺寸不一致的话最好再外面处理好再导入
  • 2007-10-29 14:13:45 回复该留言
  • quote 1.dadiding
  • 兄太,对于您这样的想法,已经很久了,可是把代码运行后,依然不行!
    不过还是收到 一些启发!
    先谢谢了!
    不知道,对这样的批量导入图片你自己试过没有!
    能不能,给个更好点的的!发到俺邮箱里!
    dadiding@yahoo.com.cn
    C.A.T. 于 2007-9-18 17:08:57 回复
    当然试过,莫非你认为上面的截图是我自己PS上去的?
    既然有启发了就量体裁衣吧
  • 2007-9-18 17:08:57 回复该留言

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

最近发表

最新评论及回复

BBS | About | GuestBook | SiteMap | RSS | Login
Copyright 2005-2008 21ido.com. All Rights Reserved.
Powered by Z-Blog 1.8 Spirit Build 80722 | Skin by coolmud
粤ICP备05022506号