[注意]EXCEL超另类作图

ldhyob · 发表于 2004-7-5 10:56

通过插入图片、插入工作表背景的方法，EXCEL工作表里能为我们显示出缤纷的图，大家一定没尝试过EXCEL这样一种超另类作图......(呵呵，纯属尝试，意义不大)

gCVnUTgy.rar (6.8 KB, 下载次数: 1625)

[此贴子已经被作者于2004-7-31 16:25:52编辑过]

taller · 发表于 2004-7-5 11:05

有创意

老兄,你怎么把图片的象素转换为单元格的颜色的?

xiaog · 发表于 2004-7-5 11:09

哦，天哪！一点一点描上去的？

ldhyob · 发表于 2004-7-5 11:16

以下是引用xiaog在2004-7-5 11:09:00的发言： 哦，天哪！一点一点描上去的？

哈哈肖兄，当然不是喽否则岂不把手给点断了，编了一段代码完成的。

[em04][em04][em04]

ldhyob · 发表于 2004-7-5 11:19

以下是引用taller在2004-7-5 11:05:00的发言：

有创意

老兄,你怎么把图片的象素转换为单元格的颜色的?

taller版主，嘿嘿用API逐行逐点读取，然后写入....

jswh · 发表于 2004-7-5 11:22

有创意

button · 发表于 2004-7-5 12:38

不错,与Andy Pope的BMPTOCELLS异曲同工之妙,不过Andy Pope不是用API,而是对BMP文件格式的研究,并对色彩进行提取.

[此贴子已经被作者于2004-7-5 13:29:03编辑过]

fieldsun · 发表于 2004-7-5 13:14

高啊,能不能将代码传上来学习学习

ldhyob · 发表于 2004-7-5 13:30

以下是引用fieldsun在2004-7-5 13:14:00的发言： 高啊,能不能将代码传上来学习学习

在生成此例时未做成一通用文档，故当时代码并未保存，因原理实不复杂，就把伪代码列出来供参：

'借助窗体或IMAGE的picture属性加载图片(要求图片宽度<=256,因为EXCEL工作表最多仅为256列限),用WINDOWS API的GetPixel函数取屏幕某点色值,然后在对应工作表单元格处设置为背景色

......

Columns("...").ColumnWidth = 0.1 '设置列宽以模拟1象素宽 Rows("...").RowHeight = 1 '设置行高以模拟1象素高 ......

'以下为逐行逐点(呵呵象电视显像技术)循环

For Y = ... To ... '图片高度循环 For X = ... To ... '图片宽度循环 Cells(..,..).Interior.Color = GetPixel(..., X, Y) '核心部分,给单元格赋背景色即描点 Next X Next Y

......

button · 发表于 2004-7-5 14:47

看看Andy Pope的方法:

ccY95fIF.rar (40.13 KB, 下载次数: 1231)

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

最新热点 /1