[VBA-E] Comment réaliser un dessin avec les API Windows via VBa d'excel?

je te remerci de ta franchise! :lol:

Je reconnais qu'il y a du vrai mais aussi du faux dans ce que tu dis! :lol:

Je me fou complètement, que ce soit de moi ou de quelqu'un d'autre, en ce qui concerne les codes! Je me renseigne tous simplement sur les moyens qu'excel peux ou ne peux pas m'apporter sur mon projet et si il y a d'autre outils intéressants pour me permettre de faire le meilleur choix pour le projet que j'ai à réaliser! afin que je m'approche le plus possible du cahier des charges ! :) c'est simplement ça! ;)

Citation:

---

il nous précise qu'il trouve gênant le fait que l'on voit l'appel à un outil qui n'est pas le sien, en ajoutant que ce fait ne confère pas un aspect "professionnel" à son projet

---

NON! pas du tout! c'est pas ce fait là qui est gênant c'est la simplicité d'utilisation! toujours pour une question de choix et de rapiditée d'execution! ;)

Citation:

---

il ne souhaite donc pas, non plus (c'est évident ou je ne comprends plus rien à sa pensée) que cet outil soit conçu par d'autres que lui-même (donc pas de copier-coller de ce qu'il n'a pas écrit lui-même )

---

Tu abuse là!! j'ai jamais dis ou fais pensée ça :) !

je rappel que les personnes qui seront ammené à utiliser ce prototype seront devant des fours à coke chauffé à plus de 800°, ces personnes ont trés peu de temps pour faire les relevés qu'ils ont à faire avec ce prototype!! :D

Je vais juste détaillé ce qu'il m'aurait fallut vraiment :

je voulais pouvoir dessiner sur une userform, sur laquel il y aurait quelques boutons pour tacer (une ligne, une zone), un boutons qui accède à la palette de couleur et un bouton annuler, pour le luxe un barre de menu fichier, editer, ... :lol:

mais il faut avoir aussi à l'esprit que ce dessin ne représente qu'un qart du dessin complet, et par la suite , il y aurait un menu qui me permet de fusionner ces 4 parties ensembles!:?

mais pour calmer jmfmarques (lol) je pense partir sur "paint"! :lol:

un petit rappel :

Citation:

---

ohah le délir je connaissais pas ce truc là térrible!

---

Alors comme ça je parrais insatisfait??? :?

Mais je tiens encore à remercié tous le monde mais surtout bbil mais par dessus tous jmfmarques pour tous (et sa franchise ;) ) :D (je reste encore à l'écoute pour de nouvelles idées ;) )

Merci aussi à toi SILKYROAD! ;)

pardon pour les gènes occasionné! :)

Salut tous le monde ! ça fait longtemps :P ! (il est lourd ce "gootsu" ;) )

Une question sur les codes avec l'objet "image Microsoft word" utilisé de bbil, comment faire la meme chose quand on veut le faire avec des images Bmp sachant que je n'ai pas comme objet "image paintbrush" proposé par Jmf (que je remerci au passage) mais "image Bitmap"!?

merci d'avance

Je ne comprends pas ta question !
Si tu parles bien de l'insertion d'un objet image Bmp et non d'une image, le principe est rigoureusement le même !
Je viens d'aller voir sur la machine de mon voisin (je n'ai pas le VBA moderne) ...
l'insertion d'un objet "image BMP" ou d'un objet "Image Paintbrush" y conduisent rigoureusement au même résultat, avec la même boîte d'outils... et les mêmes réactions !;)

c'est bien ce qu'il me semblait mais je n'en étais pas sur et je n'ai pas les moyens de vérifier! :)

Merci!

Mais il me semble quand j'avais essayé les lignes de codes de 'bbil' ,qui me plaisent beaucoup, contiennent "Dialogsheets" et excel ne le reconnait pas quand je l'utilise avec "Image Paint"! C'est pas normal puisque je suis sur une feuille de Dialogue! Donc ma question est Pourquoi il fonctionne pas? :? (j'aurais bien mis le message d'erreur mais là pour le moment je ne m'en souvient plus! :lol:

a+ bonne ap:)

Vérifie que la référence "Microsoft Graph 8.0 Object Library" soit activée (v 8.0 ou ultérieure)

A+

En faite il y a pas de message d'erreur mais la feuille de dialogue reste en premier plan et ne me laisse aucun moyen pour me permettre de dessiner sur 'paint' une fois ouvert!

Avec ou sans

Citation:

---

Microsoft Graph 8.0 Object Library

---

cela fait la meme chose!:(

il suffit que je clic dans la barre de formule ou il est écrit "=INCORPORER("Paint.Picture";"")" qu'il me met un message d'erreur:
- le texte que vous avez tapé n'est ni une référence ni un nom défini valides.
:?

???

cette fois ci j'ai remplacé "=INCOR....." par "=MonImage" cette fois ci il me met comme erreur :
- Erruer d'Exécution '438':
Propriété ou méthode non gérée par cet objet

PS: je fais n'imp quand je ne sais pas d'où vient le problème!:) il est fort possible que je fasse des trucs incohérents! :)

(une petite parenthèse: pourquoi il y a des membres cachés dans l'explorateur d'objet?)

Il faut "incorporer" dans une cellule réservée à cette incorporation, pardi !

ne me crie pas dessus mais je comprend pas! :oops:
En temps normal je me serais débrouillé autrement, mais là comme vous le savez j'ai peu de temps pour faire cette partie du projet (certe pas pour une personne de mon niveau) qui est à faire durant mon stage dans laquel j'aurai beaucoup appris grace a vous! :( (Merci pour toute votre aide), mais là, en ce moment même, c'est un peu confut et le 'bordel', et mon oral est dans 2 semaines :lol: !
je ne vois pas ce que vous voulez dire par :

Citation:

---

Il faut "incorporer" dans une cellule réservée à cette incorporation

---

Je sais j'ai l'aire d'un beux ;) mais je débute dans ce domaine (il faut m'en excusé)! :(

Tu vas mieux comprendre ainsi, peut-être :
Ouvre un classeur encore vierge et fais ta manoeuvre d'incorporation d'un objet ....

ah !! mais ça c'est déjà fait depuis longtemps!

c'est pas ça mon problème! après avoir incorporé l'objet, d'avoir simplement taper les codes de 'bbil', de lancer le programme, et paffff bug!

- quand je clic dans la barre de formule où il y a "=INCORPORER("Paint.picture";"")" et bien il m'affiche le message d'erreur :

Citation:

---

le texte que vous avez tapé n'est ni une référence ni un nom défini valides.

---

et impossible d'en sortir seulement si l'on suppr tous!

- sinon la feuille de dialogue se lance correctement mais quand je clic sur objet "Image Bmp", il m'ouvre paint (jusque là c'est ce qu'il me faut) mais c'est là qu'il y a un problème de taille, ma fenêtre de dialogue reste en premier plan devant paint et il est impossible de faire autre chose que de fermer la boite de dialogue (en faite la fenêtre de dialogue s'ouvre en Modal) et impossible de changer ce mode!

Vous voyez ce que je veux dire!

(c'est peut etre q'une impression mais je pense qu'il m'ajoute un objet OLE plutot que d'entré, d'utilisé, de modifié cette objet)

Code:

---

1 2 3

Sub MonImage_QuandClic() ThisWorkbook.DialogSheets("MonDialogue").Shapes("MonImage").OLEFormat.Activate End Sub

---

Ami gootsu ...
Une question : pourquoi incorporer dynamiquement un objet ?
si tu as besoin d'un dessin, tu sais d'avance où tu dois l'afficher, n'est-ce-pas ?
Incorpore donc cet objet OLE où tu en as besoin sans passer par du code... t-out simplement manuellement.

Si tu tiens à le faire dynamiquement : Mets donc en route l'enregistreur de macro... incorpore... ferme l'enregistreur... et vois comment Monsieur VBA a écrit la chose !;)

Edit : je viens de le faire avec mes très vieux VBA excel et Word : l'enregistreur m'a fait une macro parfaitement opérationnelle !
Je ne vais quand même pas aller chez le voisin pour vérifier que VBA moderne sait au moins faire ce que faisait son ancêtre à la perfection, non ?

merci mais je croix, et meme je suis sur de mal m'exprimé donc de mal me faire comprendre (tu n'y es pour rien;) ) je ne le fais pas dynamiquement mais je pense que ma ligne de code le fais! (tu voix ce que je veux dire?) :lol:

Mon plus gros problème c'est surtout :

Citation:

---

Quand je clic sur objet "Image Bmp" appelé "MonImage", il m'ouvre paint (jusque là c'est ce qu'il me faut) mais c'est là qu'il y a un problème de taille, ma fenêtre de dialogue reste en premier plan devant paint et il est impossible de faire autre chose que de fermer la boite de dialogue (en faite la fenêtre de dialogue s'ouvre en Modal) et impossible de changer ce mode!

---

quelqu'un pourai me guider afin de pouvoir afficher l'OLE en premier plan, mais aussi de pouvoir modifier le dessin, quitter et retomber sur la feuille de dialogue?
:oops:

a + :lol:

coucou les gens!!

jmfmarques ne me laisse pas!!! :cry:

SVP

Es-que qq1 pourai essayé de le faire avec l'objet "image Bitmap" et de vérifier si c'est moi ou pas qui déconne!:(

Citation:

---

Pour cela il faut utiliser une "Boite de dialogue Microsof Excel.5"
Insererer nouvelle feuille dans classeur excel de type "Boite de dialogue Microsoft exel 5"
Renommer la Feuille en "MonDialogue"
Redimensionner la boite, et insertion/Objet/Image Bitmap(fermer l'image.. redimensionner l'objet)
Renommer l'objet MonImage
Affecter une macro à l'objet (bouton droit puis affecter une macro)

Code:

---

1 2 3 4

Sub MonImage_QuandClic() ThisWorkbook.DialogSheets("MonDialogue").Shapes("MonImage").OLEFormat.Activate   End Sub

---

---

Voilou ! :( :cry:

Je n'ai pas le VBA moderne, tu le sais (je travaille en aveugle...)
Mais bon...
on va essayer

Regarde dans ton aide en ligne si tu as zorder et si oui, lis et utilise-le

je sais bien que tu fais ça à l'aveuglette et je t'en remerci énormément!

pour répondre à ta question j'ai bien "Zorder" je l'ai en tant que propriété mais aussi en "Sub ZOrder([zPosition])" !! ;)

Mais avant d'aller plus loin je voudrais savoir si l'objet "image bitmap" ,dans notre feuille de dialogue, poura etre enregistré en tant qu'image JPEG? :?

sinon peut-on réalisé une commande du genre "enregistré sous" automatiquement (via VBa) au moment de la fermeture de paint?

tu voi c'que j'veux dire? (je me sent pas claire)...:lol:

Citation:

---

poura etre enregistré en tant qu'image JPEG

---

Non, ... en BMP

euh oui bien sur!! c'est ce que je voulais dire! ;)
le Format JPEG ou BMp je pense que pour mon projet ça devrai etre bon!: :)
merci!

j'étudie Zorder et j'arrive! lol ;)

voici mon code :oops: qui ne fonctionne pas!! :)

Code:

---

1 2 3 4

Sub MonImage_QuandClic() ThisWorkbook.DialogSheets("Dialogue").Shapes("MonImage").OLEFormat.Activate ThisWorkbook.DialogSheets("Dialogue").ZOrder (1) End Sub

---

tous particulièrement la ligne en gras! peut-on m'expliquer je ne voi pas! :)
je précise que "ZOrder (1)" correspond à "ZOrder (fmbottom)" ;)

- enlève déjà les () à à Zorder
- je mettrais plutôt l'image en Zorder (0 par défaut)
du genre :
monmachin_le_contrôle_OLE.zorder
mais à un pro VBA de te transformer monmachin_le_controle_OLE en ce qui convient.;)

j'aimerai bien mais il me met un message d'erreur :

Citation:

---

procédure ou methode non gérée par cette objet!

---

Quand l'utilisateur à fini de faire son dessin dans paint grace à l'Objet OLE:
- qu'es qui s'affiche devant lui (une userform, la feuille de dialogue 'lancé', la feuille de dialogue 'en mode création', sur une feuille excel)?

:cry: --------:( -------------:cry: --------------:(

Help!! :( il faut que j'arrive à dessiné quand je lance l'Objet OLE de ma feuille de Dialogue micrisoft excel 5.0 !! Mon application Bug! et je c'est pas pourquoi!!

:cry: --------:( -------------:cry: --------------:(

pour ceux que ça intéresse en fait j'ai trouvé :

Code:

---

1 2 3

Sub MonImage_QuandClic() Selection.Verb Verb:=xlOpen End Sub

---

par contre j'aimerai maintenant charger une image par defaut (pas toujours la meme) Comment puis-je procédé?

Citation:

---

Envoyé par gootsu

par contre j'aimerai maintenant charger une image par defaut (pas toujours la meme) Comment puis-je procédé?

---

Tu as, me semble-t-il, ouvert un autre sujet à ce propos..

oui je sais! désolé:oops: ! dois-je mettre celui-ci en :resolu: ? mais je n'ai pas envi de cloturé le sujet (on ne sais jamais si quelqu'un me rep ici!) non? :?

Non...
Celui-ci doit être terminé...
L'autre est un sujets distinct.