VBA任意拷屏!(提供原码!)

xiaog · 发表于 2004-2-18 21:52

试过,不会用.

udd · 发表于 2010-1-11 13:32

有没有办法直接拷屏，跟据桌面的分辨率拷屏然后自动保存伙JPG文件

东方失败 · 发表于 2010-2-27 08:11

缺点是必须是窗体中开始选择
所以最后截的图片总是包括窗体的一部分

东方失败 · 发表于 2010-2-27 12:28

原帖由 udd 于 2010-1-11 13:32 发表
有没有办法直接拷屏，跟据桌面的分辨率拷屏然后自动保存伙JPG文件

这个就简单多了
选择指定区域再截图才会更复杂。

楼主的代码利用窗体的事件来执行截屏，所以免不了要将窗体的一同截下来。
我试了一下，将整个屏幕利用VBA代码全部截下来，再转换成JPG或者BMP图片放到桌面，然后将图片设为窗体的背景，同时将窗体最大化。最后在窗体中利用鼠标选择区域，将区域再次转换成图片插到工作表中，这个已经实现了。解决了“将窗体的一同截下来”的问题。但同时也产生了一个新问题，图片加载到窗体后清晰度不好

eitiwo · 发表于 2010-5-7 14:21

不是很会用，不过还是收藏了

hanter007 · 发表于 2010-5-17 19:03

高手作品..收藏.

大笨牛 · 发表于 2011-12-23 11:44

收藏先，留着慢慢研究~~

sam.tan · 发表于 2012-5-12 17:42

{:soso_e179:}

yf_home · 发表于 2013-11-25 22:12

stanleypan 发表于 2004-2-22 21:05
可能大家不知道如何用!放一张效果图吧!真正的任意拷屏!

没有弄懂你这个图是咋截的。
我截的结果是，当鼠标离开窗体就失效了，所以说，截出来的所有图片都会带有窗体的一部分。

		自动登录	找回密码
密码			免费注册

VBA任意拷屏!(提供原码!)

回复 1楼 stanleypan 的帖子