|
?看到這么美的畫(huà)， 首先你會(huì)想到是用是什么畫(huà)的？
一位名叫Tatsuo Horiuchi的75歲老人， 用excel表格畫(huà)出來(lái)的！在Excel單元格里面插入各種形狀和填充顏色進(jìn)行組合起來(lái)。
整整花了15年的時(shí)間！ 用VBA畫(huà)像素圖今天我們分享一個(gè)技巧，使用Excel的一段VBA代碼，將圖片畫(huà)在Excel里面。 所以我們找到一張jpg的這個(gè)圖片，然后用看圖軟件，另存為圖片，將格式更改成bmp，如下所示 然后在開(kāi)發(fā)工具里面，的模塊里面輸入代碼 將表格的行高和列寬調(diào)整成一樣，然后在開(kāi)發(fā)工具里面運(yùn)行宏 我們把單元格放大一點(diǎn)，就可以看到是一個(gè)一個(gè)的像素組成的圖片 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里面拿自己的照片畫(huà)個(gè)畫(huà)哦，收藏備用吧~ |
|
|
來(lái)自： pananbaba > 《計(jì)算機(jī)》
