共享一个excel下的图片转像素画的代码

疯狂五四 · 发表于 2012-5-29 13:12

07下通过，03下可以运行，但是因为只有256色，导致惨不忍睹，不过很有红白机的感觉。

原理很简单：使用GDI+获取图片的pixel颜色，然后直接写入excel。因为没有办法提高涂格子颜色的效率，所以像素超过20000后，时间明显变长，代码里控制不运行大于30000像素。

做这个东西的初衷是因为之前看到一个软件能这么做，但是超过10000像素以上居然要收费，婶可忍叔不可忍，自己也搞一个玩。以前写了一点，不好用，放弃了，昨天又想起来，晚饭后搞定。

因为只是做这玩，所以没有写到toolbar里，也没做成addins。

GDI+的模块总结得不错，可以拿去用。

用法：把图片改名成test.jpg，放到d盘根目录下，保证总像素小于30000，可以拿个100*100的图片测试用，运行模块下的pixel方法即可。

放一张昨晚测试时生成的效果图。

Cold_Sunny · 发表于 2012-5-29 13:43

没成功不知道是不是我操作问题

Cold_Sunny · 发表于 2012-5-29 13:44

07版的想问下 100*75的大概运行多久？

疯狂五四 · 发表于 2012-5-29 13:58

10000内的都可以控制在10s内，你什么地方运行失败了？

疯狂五四 · 发表于 2012-5-29 14:09

把pxiel的方法改成public的，这样就可以运行了

微风35 · 发表于 2012-5-29 15:39

没成功，不知道怎么弄

liuhao1232008 · 发表于 2013-5-22 01:14

可以，试验成功。正在研究代码，楼主威武。

lujkhua · 发表于 2014-3-31 16:52

运行失败：ReDim data(rc.Right - 1, rc.Bottom - 1) 下标越界！

大灰狼1976 · 发表于 2014-10-5 14:47

很好用，只是有些颜色转换不正确，联系不到楼主，有没有高手帮忙解决一下，附件为不能正确转换的原图。
对了，图片是256*240的，超过作者的限制，可以在代码内稍作修改一下，转换时间也不是很长，10几秒吧。

xushijie01 · 发表于 2015-4-21 20:53

楼主牛B!，请问一下像素点可以再多一点么？

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

[分享] 共享一个excel下的图片转像素画的代码

评分

点评