Pixel images API/Excel

Question

C'est encore moi pourrais je avoir un exemple qui fonctionne SVP avec les API Setpixel et Getpixel car dans ma macro je n'arrive pas à faire appel a ces fonctions.(voir messages ci dessous)

Merci.

Fredmane · Answer

Voici l'exemple que j'ai fais et qui ne fonctionne pas:

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

Sub copipix()
For z = 1 To 16
For zz = 1 To 16
Call SetPixel(Image1.hdc, z, zz, GetPixel(Image2.hdc, z, zz))
Next
Next
End Sub

Sub lancer()
Call copipix
End Sub

cs_psycho · Answer

ton erreur vient implement du fait que une api windows ne doit pas subir d appel par la fonction call.
tu dis seulement setpixel image1.hdc,z,zz,getpixel(image2.hdc,z,zz), et la ca marchera normallement.
@+
PSYCHO

Fredmane · Answer

Slt,
ok mais si je ne met pas call devant setpixel ca bug.

cs_psycho · Answer

alors la ,capte pas, je t envoie les exmples, et tu m enverras ta source....
 :-p 
psycho

cs_ANIMAL · Answer

Bonjour,
Je suis interressé par les traitements  d'images sous excel.
Avez-vous réussi une routine qui modifie taille d'image , couleur des pixels ou autres   ...

Merci pour une réponse
@++

Pixel images API/Excel

5 réponses

Discussions similaires