Importer option dessin dans une Userform et après dessin, enregistrement en tant

Question

Bonjour,

En VBA sous Excel

Je souhaite, dans un userform pouvoir dessiner (en utilisant l'option de dessin (trait, flèches, rond, rectangle, texte......) et enregistrer ensuite le dessin en tant qu'image.

Merci de votre aide.

Cordialement

Hidozo

ucfoutu · Answer

Bonjour,

Excel (dont la vocation est celle d'un tableur) n'est pas vraiment fait pour cela.
Il ne possède pas de contrôles dotés nativement de hdc pour y dessiner.
On peut y parvenir en extrayant le hdc d'un Userform (et dessiner sur cet userform), mais se posent alors de sérieux problèmes de persistance de l'image.
Je sais que l'on peut passer par des tremplins divers (chart, + fonctions de l'Api de Windows, etc...), mais c'est énormément payer pour y parvenir (et s'écarte fondamentalement de la vocation d'un tableur).
Tu peux par contre penser à insérer un objet OLE (Paint, par exemple) et travailler avec. Il t'appartiendra toutefois, dans ce dernier cas, d'utiliser manuellement (non par code) le menu de l'objet inséré (sauvegarde, etc...)

____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

hidozo · Answer

Bonjour,

Merci pour ta réponse.

Comment intégrer l'objet OLE paint ou auitres ?

Mon idée est de créer un outil permettant d'analyse des situations de travail et d'utiliser des méthodes diverses et variées en fonction de la problmématique.

Pour l'instant, je travaille comme tout le monde, mppapier crayon lors des observations et après synthèse au bureau. Sur de nombreuses étude, il me semble possible de tout faire sur ordi directement : Là est mon objectif.

Donc je veux pouvoir faire un croquis sur ordi directement


Maintenant autre question :

peut-on faire appel à Paint ou Visio en ouvrant le logiciel à partir de l'Userform ?

Si oui, cette soltuion me satisfairait, comment faire ?

Cordialement

Hidozo

SnkVrt · Answer

Salut, pour insérer un objet sous excel...:
Barre de menu, Choisir Insérer/Objet puis sous l'onglet Nouveau, choisir image Bitmap.

SnkVrt · Answer

Re...
Sinon pour lancer Paint depuis ton userForm y a ça qui marche bien...:

Private Sub CommandButton1_Click()
Shell "mspaint.exe", vbNormalFocus
End Sub



Voilà.

Importer option dessin dans une Userform et après dessin, enregistrement en tant

4 réponses

Votre réponse

Discussions similaires