VBA - Couleur du pixel sous le curseur de la souris

Novembre 2017


Ici, nous n'utilisons pas un code en "pur VBA", mais à base de fonctions de l'api Windows.

Ce code devra, probablement, être adapté pour les versions 64 bits.


Option Explicit

Private Type POINTAPI
    x As Long
    y As Long
End Type

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" (lpPoint As POINTAPI) As Long
Private Declare Function GetWindowDC Lib "USER32" (ByVal hWnd As Long) As Long

Sub Color_of_a_screen_pixel()
    Debug.Print Gcolor
End Sub

Function Gcolor() As Long
Dim P As POINTAPI, L As Long

    L = GetWindowDC(0)
    GetCursorPos P
    Gcolor = GetPixel(L, P.x, P.y)
End Function

Publié par pijaku.
Ce document intitulé «  VBA - Couleur du pixel sous le curseur de la souris  » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.