首页 > 科技 >

Excel VBA画图——今日配图(周杰伦)

2019-09-20 09:08:04 暂无 阅读:987 评论:0
Excel VBA画图——今日配图(周杰伦)

Excel VBA绘图——今日配图(周杰伦)

今天的图片是在Excel里显露的,但并不是直接插入的图片,而是每个单元格作为一个像素,用其配景色组合出来的图片。打开Excel文件,缩放到合适比例,能够看到全图,是不是很巧妙。

Excel VBA画图——今日配图(周杰伦)

EXCEL表格

这个实际是用VBA法式实现的,只有大约30行代码,的确很简洁。

Excel VBA画图——今日配图(周杰伦)

首先我们要有个原始图片,这里要用到Windows下的尺度24位BMP图片——

Excel VBA画图——今日配图(周杰伦)

原图

Excel VBA画图——今日配图(周杰伦)

留存为bmp花样

像素数别太大,要不转换出来就太慢了,电脑机能欠好也会死机。

Excel文件中,最简洁的是到场个按钮,启动法式。法式首先用Application.GetOpenFilename,挪用系统的打开文件对话框,指定bmp文件。收集常见的图片一样用JPEG或PNG,需要转换一下,最轻易是用Windows中的绘图,另存一下bmp花样,24位色彩。

然后读取文件数据,留存到数组中。

下面需要确定bmp图片的队列数,具体要认识一下bmp的花样尺度,包罗文件头的信息。队列数确定后,还要注重图片宽度不是4的倍数的话,需要补齐,也是bmp花样的特征决意的。

最后就是绘图了,把数组里的数据,按照队列顺序,用RGB()函数转为单元格的Interior.color属性,即涂上对应像素的颜色,就完成了图片的转换。

然后能够把单元格的巨细改为正方形,尽量调小,就能够显露出完整图片了。

相关文章