讀取圖像的像素顏色

Question

在VBA中，如何讀取圖像中每個像素的顏色值？

我在VB 6.0中發現this solution，但它並不直接適用於VBA。

Answer 1

嘗試在網站上公佈這裏的解決方案： http://sim0n.wordpress.com/2009/03/27/vba-q-how-to-get-pixel-colour/

我不得不改變的ByRef到BYVAL但，除了它工作得很好。使用「插入」>「圖片」插入圖片，併爲點擊事件分配一個宏。我剛剛將單元格A1的顏色設置爲您點擊的顏色，但我相信您明白了。

#If VBA7 Then 
    Private Declare PtrSafe Function GetPixel Lib "gdi32" (ByVal hdc As LongPtr, ByVal x As Long, ByVal y As Long) As Long 
    Private Declare PtrSafe Function GetCursorPos Lib "user32" (ByRef lpPoint As POINT) As LongPtr 
    Private Declare PtrSafe Function GetWindowDC Lib "user32" (ByVal hwnd As LongPtr) As LongPtr 
#Else 
    Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long,  ByVal y As Long) As Long 
    Private Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINT) As Long 
    Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long 
#End If 
Private Type POINT 
    x As Long 
    y As Long 
End Type 

Sub Picture1_Click() 
    Dim pLocation As POINT 
    Dim lColour As Long 

    Dim lDC As Variant 
    lDC = GetWindowDC(0) 
    Call GetCursorPos(pLocation) 
    lColour = GetPixel(lDC, pLocation.x, pLocation.y) 
    Range("a1").Interior.Color = lColour 
End Sub 

要使用它，將圖片放置在工作表中，右鍵單擊圖像並將其分配給它。