Lesen pixel Farben eines Bildes

In VBA, wie kann ich Lesen Sie den Farbwert jedes pixels in einem Bild?

Fand ich diese Lösung in VB 6.0, aber es gilt nicht direkt in VBA.

wenn der code verwendet die API, dann ist es eher möglich, Sie zu implementieren, in die VBA-Einstellung einige Verweise auf API-Funktionen...
Welche Datei-Typ sind Sie Fragen? Jede im besonderen? Vielleicht eine Liste mit Dateitypen? Unterschiedliche Dateiformate speichern die Farbinformation anders, so Lesen verschiedene Arten erfordern zu wissen, was wir Lesen.
Die Lösung unten funktioniert Super, aber wenn Sie wirklich wollen, zu Scannen jedes pixel (anstatt zu klicken), dann ist dieses stackoverflow.com/questions/45998565/... macht den job gut, und das ganze in VBA (keine Grafik-Bibliotheken, etc.)

InformationsquelleAutor KM Hs | 2013-05-13

  1. 9

    Versuchen Sie die Lösung auf dieser Website veröffentlicht hier :
    http://sim0n.wordpress.com/2009/03/27/vba-q-how-to-get-pixel-colour/

    Musste ich einen ByRef, ByVal aber abgesehen davon, dass es gut funktioniert. Ein Bild einfügen über "Einfügen" > Bild und ein makro zuweisen, das beim klicken-Ereignis . Ich habe es gerade so geschafft legen Sie die Farbe der Zelle A1 auf die Farbe, die Sie klicken, aber ich bin sicher, Sie bekommen die Idee.

    #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

    Um es zu verwenden, setzen Sie ein Bild in einem Arbeitsblatt mit der rechten Maustaste auf das Bild, und weisen Sie dieses makro, um es.

    Super Antwort, es getestet und es funktioniert perfekt. +1
    Hier gilt das gleiche, mit zusätzlichen Informationen: Sie können auch Bilder verwenden, die Sie einfach einfügen in das Blatt ("Insert > Bild" - Verfahren ist nicht obligatorisch). Danke nochmal +1 und danke @KM Hs

    InformationsquelleAutor Wild138

Schreibe einen Kommentar