créer ou afficher un point (pixel) sur l'écran ou la feuille

Question

Bonjour. (sous vba)

Quelqu'un pourrais me dire qu'elle le code qu'il faut écrire pour tout simplement : créer ou afficher un point (pixel) sur l'écran ou la feuille.

Exemple:

sub toto()

worksheet.shape.point(420,250).color = 1

end sub

En vous remerciant par avance , la recherche de cette solution n'a pas été concluante j'usqu'a maintenant.

J5eme3110

PCPT · Answer

salut, voici 8 points, mais en VB6..... Option Explicit Private Declare Function SetPixel Lib "gdi32" _ (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, _ ByVal crColor As Long) As Long Private Sub Form_Load() Me.AutoRedraw = True Me.BackColor = vbWhite Call SetPixel(Me.hdc, 100, 100, vbBlue) Call SetPixel(Me.hdc, 100, 120, vbBlue) Call SetPixel(Me.hdc, 100, 140, vbBlue) Call SetPixel(Me.hdc, 100, 160, vbBlue) Call SetPixel(Me.hdc, 120, 100, vbRed) Call SetPixel(Me.hdc, 120, 120, vbRed) Call SetPixel(Me.hdc, 120, 140, vbRed) Call SetPixel(Me.hdc, 120, 160, vbRed) End Sub Coloration syntaxique automatique [AFCK] çà devrait fonctionner... @+ PCPT [AFCK]

j5em3110 · Answer

Merci beaucoup. Mais cela ne fonctionne pas

"ME" ne fonctionne pas!

VBA sous (Excel 2003) ne reconnait pas non plus la fonction "SetPixel".

La fonction n'est pas dans library! Est ce cela?
Si oui, est  il possible de télécharger une library?

PCPT · Answer

Me en VB6 correspond &#224; la Form.

essaie en rempla&#231;ant par le nom de ta UserForm (sans garantie)

si &#231;&#224; fonctionne dans le princpe, mais que la UserForm ne contient pas
de hDC, pose une PictureBox et met le code pour cette Pic.



pour la librairie, gdi32 fait parti de Windows.....

logiquement les API sont utilisables par les macros mais regarde les
sources... peut-&#234;tre y a t'il des sp&#233;cificit&#233;s de d&#233;clarations...

++

j5em3110 · Answer

merci

alors remplacement de "me" par UF1 (userform) ok
AUTOREDRAW ne fonctionne pas avec vba alors remplacer par DRAWBUFFER


exemple: uf1.drawbuffer 170000 car  uf1.drawbuffer true ne fonctionne pas car
apparement 
erreur d'execution '380' Impossible de d&#233;finire la propri&#233;t&#233; de drawbuffer.
 Valeur de propri&#233;t&#233; non valide.Entrez une valeur entre 16000 et 1048576.

A quoi correspond autoredraw en vb ou pour mon cas drawbuffer en vba ?

Autrement en appelant la fonction "setpixel" fonction pas 
"erreur de compilation :argument non facultatif"
Que faut il faire??

Je te remercie pour tes infos bien utile. Je ne suis toujours pas sortie de l'auberge.*

cordialement j5em3110

PCPT · Answer

autoredraw pour VB6 est un bool&#233;en.

c'est pour que la fen&#234;tre survolant la Form ne l'efface pas. (exemple, un msgbox qui supprimerait alors ces points)



je ne connais pas VBA, mais une propri&#233;t&#233;s "DrawBuffer" ne m'inspirerait pas confiance pour ce cas....



argument non facultatif.... tu es certain de la syntaxe? cad la d&#233;claration et les parenth&#232;ses?

si pas de parenth&#232;se, pas de Call



bon courage...

j5em3110 · Answer

Merci exact pas de call

Mais toujours un probleme (je me rapproche du but merci encore)
**********************************
dans la ligne -->  
SetPixel(UF1.hdc, 100, 100, vbBlue) = 1
"Erreur de comp : Membre de m&#233;thode ou de donn&#233;es introuvable" et met en surbrillance 
la variable hdc pour me signaler que la est l'erreur
***************************************
SetPixel(UF1, 100, 100, vbBlue) = 1
il me detecte encore une erreure de compilation mais je seche
Je site :
"Un appel de fonction dans la partie gauche de l'affectation doit renvoyer Variant ou Object"
**************************************************
Quand je met hdc tout seul il rale et dit : erreure de compile &#231;a je sais lol
mais aussi "Variable non d&#233;finit"
**************************************************

Et au cas ou j'arriva &#224; aller jusqu'a la fin de la parenthese pares le = il faut que je mette quoi au juste car j'ai mis 1 mais j'aurais pu mettre 2 car je croyais que je definisais n&#176;d ecouleur.

Merci de bien vouloir essayer de m'aider

coordialement j5em3110

PCPT · Answer

la couleur est le 4 param&#232;tre

si tu veux r&#233;cup&#233;rer une valeur, alors :





MaValeurLong =  setpixel(MonDeviceContext, MapositionX, MaPositionY, MaCouleurLong)



cette valeur ( MaValeurLong ) sera la valeur la plus proche possible de MaCouleurLong.



mais une simple

SetPixel MonDC, x, y, MaCouleurLong

doit suffir....

(pas de parenth&#232;se dans ce cas)



as-tu essay&#233; dans une picturebox? au cas o&#249; la propri&#233;t&#233; hDC n'existe pas.....



toujours est-il que tu ne peux pas attribuer de valeur &#224; une fonction, c'est l'inverse !!!

donc pas de MaFonction  = Mavaleur

j5em3110 · Answer

Alors j'ai trouver
comment on ecrit le truc mais je ne sais pas quoi en faire pour cr&#233;e un cr&#233;er un point ou pixel sur l'ecran ou dans une shape.

j'ai &#233;crit dans le module:

*****************************************************
Option Explicit
Private Declare Function SetPixel Lib "gdi32" _
            (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, _
            ByVal crColor As Long) As Long
            Public MaValeurLong As Long
____________________________________________________________


Private Sub Form_Load()


MaValeurLong = SetPixel(10, 5, 5, 4)
 
end sub

_________________________________________________
Sub toto()


Call Form_Load

End Sub
*********************************************************

Je recupere dans la variable  MaValeurLong  = -1 je ne sais pourquoi
Mais bon si cela peut m'aid&#233; pour cr&#233;e un point en coueur 4 je veux bien.

Merci de continuer si tu peux tu m'est d'une grande aide.

cordialement Jonathan 27 ans paris

PCPT · Answer

tu r&#233;cup&#232;res -1 parce que l'API te renvoie une erreur.

le HDC (Handle Device Context) est l'objet sur lequel tu veux dessiner.

donc ta Form ou une PICTURE que tu vas essayer (parce qu'on tourne en boucle l&#224;....)



or toi, tu dis &#224; l'API d'aller faire ses points dans "10" qui ne veux rien dire en soit...



donc pose une PictureBox pour essayer, tu lui mets la propri&#233;t&#233; autoredraw &#224; true (si &#231;&#224; existe en VBA)



et tu essayes par exemple 

MaValeurLong = SetPixel(Picture1.hdc, 100, 100, 255)



MaValeurLong  devrait te renvoyer 255 et tu devrait avoir un point rouge... (code de 255)

j5em3110 · Answer

J'ai mis dans ma feuille excel ce que tu peux appeler sous vb une picture box
(je suis pas sur c'est un dessin inseré depuis excel
je le nomme image1.

j'écrit:

MaValeurLong = SetPixel(ActiveSheet.Shapes("Image1").hdc, 50, 5, 1)

il me dit:  Propriété ou méthode non généré par cet objet.


J'essay tout ce que je connais comme subtilité tout.
Mais commance a désséspéré depuis quelque jours.

J'espere y arriver un jours 

merci j'attend suggestion

j5em3110

PCPT · Answer

shape en VB, pas de HDC



c'est comme si tu mettais CommandButton1.Text = "machin"

tu aurais l'erreur "propri&#233;t&#233; non g&#233;r&#233;e"



l&#224; c'est pareil, trouve n'importe quel objet (picture, ce que tu veux) qui a un HDC

je doute qu'il n'y en ait aucun sous VBA....

Créer ou afficher un point (pixel) sur l'écran ou la feuille

11 réponses

Discussions similaires