[原创][分享]简易屏幕扫描填图器

kidsing · 发表于 2008-10-8 22:45

<p>
＊＊实现机理＊＊
用API 函数GetCursorPos()取当前鼠标在屏幕上的位置,用GetPixel()取这个位置点的象素颜色值,然后,转成RGB颜色，赋给单元格......可以将屏幕当成一张大图,然后用API函数GetPixel()读取这张图片上某一区域的象素颜色.在VB中我们可以用picture.point(x,y)函数来获得点(x,y)的颜色值,但VBA没有提供这个函数,所有只好用API函数.

参考贴：
[注意]EXCEL超另类作图
[原创]VB绘图函数总结(精华浓缩),非API

8/7-以前上传的附件貌似已丢失?再传一次吧.

Screen2Xcell.rar (197.74 KB, 下载次数: 227)

[ 本帖最后由 kidsing 于 2010-8-7 03:13 编辑 ]

Love_ycy · 发表于 2008-10-8 23:32

牛人一个！

kidsing · 发表于 2009-1-1 11:46

想不到在2007版本内转出来是全彩的，EXCEL2007的列数也大大超过了256列。
不过速度好象慢了好多，可能是EXCEL在处理真彩色上花的时间比以前要多。

screen2excel全彩

xman2000 · 发表于 2019-8-21 00:47

非常重要且非常有用

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