Insérer un commentaire sur un rectangle sous VBA Fermé

Question

Bonsoir à tous,

Voilà qu'il se fait tard, et je n'ai toujours pas trouvé de solution à mon problème (cf titre).
J'ai une macro qui me permet de créer une série de rectangle en prenant comme dimensions des données préalablement rentrées à la main.
Le but est de faire un plan d'usine (j'y fait mon stage de fin d'étude et j'ai envie de cartonner !).
Jusque là, tout marche. Seulement, pour améliorer le projet, j'aimerais insérer en commentaire de chaque rectangle une photo de la machine auquel il correspond.

Quelqu'un a-t-il un code sous VB pour insérer un commentaire sur une forme excel?
(J'ai beau faire le tour des forums, aucunes trouvailles :/).

Merci d'avance.

Zoul67 · Answer

Bonjour,

Si tu le tentes à la main, tu verras que tu peux associer un commentaire à une cellule, mais pas à une forme (rectangle dans ton cas). De plus je ne vois pas comment mettre une photo dans un commentaire.

L'utilisation d'Excel est-elle obligatoire ?
- Si oui, regarde peut-être pour créer des boutons (qui sont rectangulaires), en appuyant dessus tu peux faire apparaître une photo.
- Si non, vois en html avec "on hover" (action quand on survole avec le pointeur de la souris).

A+

Arsouille165 · Answer

Bonjour Zoul67,

Je te remercie de ta réponse.
Tu as raison, j'avais oublié de regarder si il était possible d'ajouter une photo en commentaire d'une cellule en tout premier lieux.

Je vais me réorienter vers une programmation entière par VBA avec affection de photo pour chaque forme (voir si cela marche pour une seule déjà...).

Et sinon, oui Excel est obligatoire pour que le fichier soit utilisé par tous.

Merci pour l'aide.

michel_m · Answer

Bonjour

Un exemple pour insérer une image dans un commentaire

https://www.cjoint.com/?3CzmjPfaoSr

ne pas ouvrir le zip mais toujours dézipper

 Sub image_dans_commentaire()'----------------------------------------'Michel_M 25/07/09' simplifié (supprimé choix photo) à partit d'une démo d' Isabelle, mpfe trouvé sur site Fred sigonneau'http://frederic.sigonneau.free.fr'----------------------------------  Range("B2").AddComment  With Range("B2").Comment        chemin = ThisWorkbook.Path & "\"        .Shape.Fill.UserPicture chemin & "virageadroite.jpg"  End WithEnd Sub
 
 Michel

Arsouille165 · Answer

Merci michel_m pour ce code, je vais l'insérer dans ma boucle pour automatiser tout ça.

Insérer un commentaire sur un rectangle sous VBA

4 réponses

Discussions similaires