vba把图片转成二进制_70多岁日本老人用Excel画画,我用VBA将图片转成像素图

​看到这么美的画,

首先你会想到是用是什么画的?

ab7e7a7bb8405c2cfe36eba5e5a4510c.png
259a66c947153b8d4ee06d73195dcece.png


谁也不曾想到这些画居然是

一位名叫Tatsuo Horiuchi的75岁老人,

用excel表格画出来的!在Excel单元格里面插入各种形状和填充颜色进行组合起来。

532e08dd9125b247d5e5e99acea57b95.png


老人为了修成这一门“绝技”

整整花了15年的时间!

用VBA画像素图

今天我们分享一个技巧,使用Excel的一段VBA代码,将图片画在Excel里面。

c2f5976416a090b4d4e91b0c79b43531.png

所以我们找到一张jpg的这个图片,然后用看图软件,另存为图片,将格式更改成bmp,如下所示

6cd577d7b79ee1158ee97ac80b665975.png

然后在开发工具里面,的模块里面输入代码

cfeab3bb8e7cc6f766ddb61c486c1f58.png

将表格的行高和列宽调整成一样,然后在开发工具里面运行宏

783455957a1479ae3e9e0a71ff8fc82b.gif

我们把单元格放大一点,就可以看到是一个一个的像素组成的图片

242a0a65b41a9066dea8b4f1cc3e662e.png
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里面拿自己的照片画个画哦,收藏备用吧~

简介 笔者当初为了学习JAVA收集了很多经典源码源码难易程度分为初级、中级、高级等详情看源码列表需要的可以直接下载! 这些源码反映了那时那景笔者对未来的盲目对代码的热情、执着对IT的憧憬、向往!此时此景笔者只专注Android、Iphone等移动平台开发看着这些源码心中有万分感慨写此文章纪念那时那景! Java 源码包 Applet钢琴模拟程序java源码 2个目标文件提供基本的音乐编辑功能。编辑音乐软件的朋友这款实例会对你有所帮助。 Calendar万年历 1个目标文件 EJB 模拟银行ATM流程及操作源代码 6个目标文件EJB来模拟银行ATM机的流程及操作:获取系统属性初始化JNDI取得Home对象的引创建EJB对象当前的计数器初始化每一个EJB对象的count()方法保证Bean正常被激活和钝化EJB对象是完毕从内存中清除从账户中取出amt如果amt>账户余额抛出异常一个实体Bean可以表示不同的数据实例我们应该通过主键来判断删除哪个数据实例…… ejbCreate函数于初始化一个EJB实例 5个目标文件演示Address EJB的实现 创建一个EJB测试客户端得到名字上下文查询jndi名通过强制型得到Home接口getInitialContext()函数返回一个经过初始化的上下文client的getHome()函数调Home接口函数得到远程接口的引远程接口的引访问EJB。 EJB中JNDI的使源码例子 1个目标文件JNDI的使例子有源代码可以下载参考JNDI的使初始化Context,它是连接JNDI树的起始点查找你要的对象打印找到的对象关闭Context…… ftp文件传输 2个目标文件FTP的目标是:(1)提高文件的共享性(计算机程序和/或数据)(2)鼓励间接地(通过程序)使远程计算机(3)保护户因主机之间的文件存储系统导致的变化(4)为了可靠和高效地传输虽然户可以在终端上直接地使但是它的主要作是供程序使的。本规范尝试满足大型主机、微型主机、个人工作站、和TACs 的不同需求。例如容易实现协议的设计。 Java EJB中有、无状态SessionBean的两个例子 两个例子无状态SessionBean可会话Bean必须实现SessionBean获取系统属性初始化JNDI取得Home对象的引创建EJB对象计算利息等;在有状态SessionBean中累加器以对话状态存储起来创建EJB对象当前的计数器初始化每一个EJB对象的count()方法保证Bean正常被激活和钝化EJB对象是完毕从内存中清除…… Java Socket 聊天通信演示代码 2个目标文件一个服务器一个客户端。 Java Telnet客户端实例源码 一个目标文件演示Socket的使。 Java 组播组中发送和接受数据实例 3个目标文件。 Java读写文本文件的示例代码 1个目标文件。 java俄罗斯方块 一个目标文件。 Java非对称加密源码实例 1个目标文件 摘要:Java源码,算法相关,非对称加密   Java非对称加密源程序代码实例本例中使RSA加密技术定义加密算法可 DES,DESede,Blowfish等。   设定字符串为“张三你好我是李四”   产生张三的密钥对(keyPairZhang)   张三生公钥(publicKeyZhang)并发送给李四,这里发送的是公钥的数组字节   通过网络或磁盘等方式,公钥编码传送给李四李四接收到张三编码后的公钥,其解码李四张三的公钥加密信息并发送给李四张三自己的私钥解密从李四处收到的信息…… Java利DES私钥对称加密代码实例 同上 java聊天室 2个目标文件简单。 java模拟掷骰子2个 1个目标文件输出演示。 java凭游戏 一个目标文件简单。 java求一个整数的因子 如题。 Java生密钥的实例 1个目标文件 摘要:Java源码,算法相关,密钥   Java生密钥、保存密钥的实例源码通过本源码可以了解到Java如何产生单钥加密的密钥(myKey)、产生双钥的密钥对(keyPair)、如何保存公钥的字节数组、保存私钥到文件privateKey.dat、如何Java对象序列化保存私钥,通常应对私钥加密后再保存、如何从文件中得到公钥编码的字节数组、如何从字节数组解码公钥。 Java数据压缩与传输实例 1个目标文件 摘要:Java源码,文件操作,数据压缩,文件传输   Java数据压缩与传输实例可以学习一下实例化套按字、得到文件输入流、压缩输入流、文件输出流、实例化缓冲
表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
相关推荐
<p> <b><span style="background-color:#FFE500;">【超实课程内容】</span></b> </p> <p> <br /> </p> <p> <br /> </p> <p> 本课程内容包含讲解<span>解读Nginx的基础知识</span><span>解读Nginx的核心知识、带领学员进行</span>高并发环境下的Nginx性能优化实战让学生能够快速所学融合到企业应中。 </p> <p> <br /> </p> <p style="font-family:Helvetica;color:#3A4151;font-size:14px;background-color:#FFFFFF;"> <b><br /> </b> </p> <p style="font-family:Helvetica;color:#3A4151;font-size:14px;background-color:#FFFFFF;"> <b><span style="background-color:#FFE500;">【课程如何观看?】</span></b> </p> <p style="font-family:Helvetica;color:#3A4151;font-size:14px;background-color:#FFFFFF;"> PC端:<a href="https://edu.csdn.net/course/detail/26277"><span id="__kindeditor_bookmark_start_21__"></span></a><a href="https://edu.csdn.net/course/detail/27216">https://edu.csdn.net/course/detail/27216</a> </p> <p style="font-family:Helvetica;color:#3A4151;font-size:14px;background-color:#FFFFFF;"> 移动端:CSDN 学院APP(注意不是CSDN APP哦) </p> <p style="font-family:Helvetica;color:#3A4151;font-size:14px;background-color:#FFFFFF;"> 本课程为录播课课程永久有效观看时长大家可以抓紧时间学习后一起讨论哦~ </p> <p style="font-family:"color:#3A4151;font-size:14px;background-color:#FFFFFF;"> <br /> </p> <p class="ql-long-24357476" style="font-family:"color:#3A4151;font-size:14px;background-color:#FFFFFF;"> <strong><span style="background-color:#FFE500;">【学员专享增值服务】</span></strong> </p> <p class="ql-long-24357476" style="font-family:"color:#3A4151;font-size:14px;background-color:#FFFFFF;"> <b>源码开放</b> </p> <p class="ql-long-24357476" style="font-family:"color:#3A4151;font-size:14px;background-color:#FFFFFF;"> 课件、课程案例代码完全开放给你你可以根据所学知识自行修改、优化 </p> <p class="ql-long-24357476" style="font-family:"color:#3A4151;font-size:14px;background-color:#FFFFFF;"> 下载方式:电脑登录<a href="https://edu.csdn.net/course/detail/26277"></a><a href="https://edu.csdn.net/course/detail/27216">https://edu.csdn.net/course/detail/27216</a>播放页面右侧点击课件进行资料打包下载 </p> <p> <br /> </p> <p> <br /> </p> <p> <br /> </p>
©️2020 CSDN 皮肤主题: 1024 设计师:白松林 返回首页