VBA如何提取图片的RGB信息

想用VBA 编程来提取图片的RGB信息并形成文本文件（.rgb),谢谢。

用API函数GetPixel
先给个声明：
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
获取 (x,y) 的颜色（hdc是句柄）
注意，目标控件的ScaleMode要为3（单位是Pixel(像素)）
写文件的事你自己办吧…………

sub getrgb()     for i=2 to 2000         if range("a" & i).interior.colorindex=xlnone then exit for         c = range("a" & i).interior.color         r = c mod 256         g = (c - r) / 256 mod 256         b = (c - r - g * 256) / 256 ^ 2         cells(i,"b")=r & "," & g & "," & b     next end sub