Lisez les couleurs des pixels d'une image

En VBA, comment puis-je lire la valeur de la couleur de chaque pixel d'une image?

J'ai trouvé cette solution dans visual basic 6.0, mais il ne s'applique pas directement en VBA.

si le code utilise l'API puis il est plutôt possible de la mettre en œuvre en VBA paramètre quelques références à l'API de fonctions...
Ce type de fichier, demandez-vous? Aucune en particulier? Peut-être une liste de types de fichiers? Différents formats de fichier de stockage des informations de couleur différemment donc, la lecture de différents types nécessitent de savoir ce qui nous sera nécessaire pour lire.
La réponse ci-dessous fonctionne très bien, mais si vous voulez réellement d'analyser chaque pixel (plutôt que de cliquer sur celui-ci), ce stackoverflow.com/questions/45998565/... fait le travail très bien et tout en VBA (pas de bibliothèques graphiques, etc)

OriginalL'auteur KM Hs | 2013-05-13

  1. 9

    Essayez la solution posté sur ce site ici :
    http://sim0n.wordpress.com/2009/03/27/vba-q-how-to-get-pixel-colour/

    J'ai dû changer un ByRef à un ByVal mais en dehors de cela, il fonctionne bien. Insérer une image à l'aide d'Insérer > l'Image et affecter une macro à l'événement click . J'ai juste fait de définir la couleur de la cellule A1 à la couleur que vous cliquez sur, mais je suis sûr que vous obtenez l'idée.

    #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

    Pour l'utiliser, placez une image dans une feuille de calcul, cliquez-droit sur l'image et affecter cette macro.

    Super réponse, testé et il fonctionne parfaitement. +1
    Même chose ici, avec des informations supplémentaires: vous pouvez également utiliser des images que vous il suffit de coller dans la feuille ("Insert > l'Image" de la procédure n'est pas obligatoire). Merci encore +1 et merci @KM Hs

    OriginalL'auteur Wild138