​看到这么美的画，

# 用VBA画像素图

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

07-13
06-13 1万+
03-05 3241
03-14 1万+
08-11 454
10-10 406