在Excel中使用VBA读取1bit BMP的每个像素/位

Question

我已经能够通过获得每个像素的RGB值来读取24位BMP文件，即每3字节对像素的颜色做出贡献。但是，要在1位BMP文件中获得每个像素的黑白值，使用VBA而不是其他编程语言，关键是读取一个字节或每个8位。

假设32位边界由填充处理，是否已经定义了用于读取这种1bit BMP的每个位/像素的函数?

Answer 1

Dim x() as Byte

字节数组。

x将是x(0)到x(1000000)所以

For y = 0 to UBound(x) - 1
   'bit 0
    z=x(y) or &H1
   'bit 1
    z=x(y) or &H2
   'bit 2
    z=x(y) or &H4
   'bit 3
    z=x(y) or &H8
Next