用EXCEl画画--送给撩妹的你！

转自知乎

工作繁忙的晚上，妹子收到了一份来自你的excel文件，掩盖着失望神情的她，挪着疲惫的食指轻轻的点击鼠标。咦？怎么回事？表格中没有任何文字，只有她的开心的的笑脸……妹子头往屏幕前探，what?竟然不是图片，是你手把手将excel的M*N个单元格逐个进行颜色填充。从画中完全可以看出你的细心，耐心！妹子对你的好感+10！哈哈哈哈……老司机们，你们已经在开车了……

so，如何实现？？

听说Excel能够画画？？？

来讲两个故事吧。

故事1

日本一位73岁大爷在退休之后，为了完成童年时的画画的梦想，开始学习画画。由于经济窘迫，他买不起纸墨，于是尝试着用Excel作画，坚持十年，成就自己的梦想。

以下其作品的图集。

是的，如果你有一颗喜欢【做傻事】的心，你也可以试着去填充单元格！但是，时间不等人，待你画出妹子的身影，她已嫁做人妇……

故事2

《Excel 的 VBA 现在还算是办公利器吗？》火了，里面提到了Excel可以制作油画，天真的我信了！搜索了一番，发现有个excelart的工具可以实现。下载/安装，结果很不爽，免费版版输出的图像像素太低了。如图：

要钱还是要像素？sorry,大多数人都是要像素，但不想花钱。

-------------------------------故事结束------------------------------

如你想简单的在Excel中作图，借助软件无疑是最佳途径。文章将结合Python与VBA，发布一款免费开源的代码，供各位使用。

好吧，其实软件制作图像这重事情，道理是很简单的，无非是将图像的RGB矩阵拷贝到excel中，在对excel进行颜色填充罢了。

但是事情并非那么顺利，存在两个问题

困难1：excel对于填充颜色的种类是有限制的，不得超过4000，而RGB的色彩的种类是2的24次方，因此，存在种类限制。

困难2：如果使用python对于excel进行操作，那么现如今的库中，只有win32com可用.一方面，运行速度慢；另外一方面，出了问题很难调试。

解决思路

对于颜色种类太多的问题，可以采用近似的方法，将RGB转为仅仅只有200多种的网络色彩，同时，将网络色彩在还原成RGB，以方便对Excel对RGB进行操作。

对于操作excel问题，那就留给VBA来吧。

EXCEL作图步骤：

1，读取图片中的RGB值，将其转化为网络色彩，最后还原为RGB值。

2，将经过处理的RGB值存为文本

3，新建Excel，导入文本值。

4，借助VBA进行填充。

1，读取图片中的RGB值，将其转化为网络色彩，最后还原为RGB值，并将24的RGB计算为整数并存为文本。这里我将借助python实现。

#coding=utf-8
import numpy as np
from PIL import Image
def jpg_image_to_array(image):
"""
Loads JPEG image into 3D Numpy array of shape
(width, height, channels)
"""
im_arr = np.fromstring(image.tobytes(), dtype=np.uint8)
im_arr = im_arr.reshape((image.size[1], image.size[0], 3))
return im_arr
def rgbToInt(rgb):
colorInt = rgb[0] + (rgb[1] * 256) + (rgb[2] * 256 * 256)
return colorInt
path = r"I:\\tc.JPG"
f = Image.open(path)
f1 = f.convert("P").convert("RGB")
arr = jpg_image_to_array(f1)
print(type(arr),arr.shape)
arr2 = np.apply_along_axis(rgbToInt,2,arr)
np.savetxt("simple1.txt",arr2)

3，新建Excel，导入文本值。这里时Sheet1中添加文本。

4，填充单元格

Sub set_color()
Dim row As Integer, col As Integer
Set Rng = Sheet1.Range(Sheet1.Cells(1, 1), Sheet1.Cells(750, 1000))
row = Rng.Rows.Count
col = Rng.Columns.Count

Set new_rng = Sheet2.Range(Cells(1, 1), Cells(row, col))
new_rng.Columns.ColumnWidth = 0.54
new_rng.Rows.RowHeight = 5.75
For Each i In Rng
Sheet2.Cells(i.row, i.Column).Interior.Color = i.Value
Next
End Sub

运行几分钟，结果如下