Menu
Donnez votre avis

VBA - Couleur du pixel sous le curseur de la souris

Posez votre question

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
Jean-François Pillou

Cet article est régulièrement mis à jour par des experts sous la direction de Jean-François Pillou, fondateur de CommentCaMarche et directeur délégué au développement numérique du groupe Figaro.

En savoir plus sur l'équipe CCM

Publié par pijaku. Dernière mise à jour le 25 octobre 2017 à 10:12 par pijaku.

Ce document intitulé «  VBA - Couleur du pixel sous le curseur de la souris  » issu de CommentCaMarche (https://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.

Ajouter un commentaire

Commentaires

Commenter la réponse de Utilisateur anonyme