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

Question

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

假设32位边界由填充处理，是否已经定义了用于读取这种1位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