谁也不曾想到这些画居然是
一位名叫Tatsuo Horiuchi的75岁老人，
用excel表格画出来的！在Excel单元格里面插入各种形状和填充颜色进行组合起来。老人为了修成这一门“绝技”
整整花了15年的时间！
用VBA画像素图
今天我们分享一个技巧，使用Excel的一段VBA代码，将图片画在Excel里面。所以我们找到一张jpg的这个图片，然后用看图软件，另存为图片，将格式更改成bmp，如下所示
然后在开发工具里面，的模块里面输入代码将表格的行高和列宽调整成一样，然后在开发工具里面运行宏
我们把单元格放大一点，就可以看到是一个一个的像素组成的图片Sub draw() Const photo As String = "d:\1.bmp" Dim phby() As Byte Dim pxc As Long, pxr As Long Dim cc As Long, cr As Long Dim i As Long, j As Long Dim aa As Long, bb As Long Open photo For Binary As #1 ReDim phby(LOF(1) - 1) Get #1, , phby Close #1 For i = 0 To 3 pxc = pxc + phby(i + 18) * 256 ^ i Next For i = 0 To 3 pxr = pxr + phby(i + 22) * 256 ^ i Next If pxc Mod 4 <> 0 Then bb = pxc Mod 4 Cells.Clear For i = pxr To 1 Step -1 cr = cr + 1 cc = 0 For j = 1 To pxc * 3 Step 3 cc = cc + 1 aa = 53 + j + (i - 1) * (pxc * 3 + bb) Cells(cr, cc).Interior.Color = RGB(phby(aa + 2), phby(aa + 1), phby(aa)) Next NextEnd Sub小伙们可以用这段代码，在Excel里面拿自己的照片画个画哦，收藏备用吧~