Discussion :

[ouskel'n'or]

Re bonjour,
Par macro, je souhaite affecter une macro derrière le clic sur un objet (shape).
Jusque là, bas de broblème.

La macro est censée masquer l'objet désigné par la souris afin de faire apparaître un texte sous-jacent.
Pour ça, j'ai besoin d'identifier l'objet ayant subi le clic de la souris.
Ce qui donnerait un truc comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub masquer()
     LeTruc = Le nom du shape ayant subi le clic
     Cacher LeTruc, Oui
Fin sub

Eze bozible ?

Un petit coup de main me satisferait, c'est sûr.

Par avance, merci

[Invité]

Salut Ousk

Regardes ce truc dans la FAQ http://powerpoint.developpez.com/faq...=V-A#InfoBulle

Tu crées une routine et en argument j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Sub AffichageBulleForm(shpSelect As Shape)

Tu peux à ce moment faire un test sur la propriété Name, de cette shape. L'inconvénient est qu'il faut attribuer cette action à chaque shape.

Parce que je ne vois pas comment faire autrement

Philippe

[ouskel'n'or]

Bonsoir Philippe,

L'inconvénient est qu'il faut attribuer cette action à chaque shape.

C'est précisément ce que je voulais éviter, j'ai plus d'une centaine d'images que je souhaitais pourvoir masquer d'un click pour apercevoir... le texte caché dessous
Je vais être obligé de passer par une flopée d'userforms, plus d'une centaine d'images et plus d'une centaine de textbox. Le tout en dynamique si je ne veux pas retrouver le même dilemme et avoir dupliquer le code pour chaque image.
Même si ça je sais le faire ça me fait bien suer !
Merci de ta réponse. Je vais tout de même voir si quelqu'un a une idée. Car je peux aussi tenter d'attribuer l'action dont tu parles par soft à chaque objet. Jusqu'à maintenant je n'ai réussi qu'à expédier tout le diaporama en un seul click
En attendant la fin de l'histoire, bonne soirée.
A+

[Invité]

Re

Si tu crées tout en dynamique, pourquoi ne pas faire une routine générique (avec un Select Case) puis attribuer le lancement sur le click avec un truc de ce style :

http://powerpoint.developpez.com/faq...V-B#clickMouse

Philippe

[ouskel'n'or]

Merci Philippe, mais comme je l'ai dit dans mon premier post, cette partie là ne me pose pas de pb. Ce qui me manque, dans l'exemple que tu me cites, c'est la macro "NomMacroDeclenchee"... après le .Run

Pour la méthode avec userform je pensais à une création en dynamique des images et des zones de texte, ainsi qu'un truc comme ça (collection et module de classe) pour gérer leurs événements click - avec withevents) Mais je ne me souviens pas si on peut faire ça avec des "Pictures".
Je verrai ça demain, là je sature un peu
Je tiens au courant.
Bonne soirée

Edit

je ne me souviens pas si on peut faire ça avec des "Pictures"

Ben non, on ne peut pas faire ça avec les images... Je vais donc utiliser des boutons (méthode testée en situation) et coller les images dessus. Peut-être que le caption pourra m'éviter les Textbox
La suite bientôt.

[ouskel'n'or]

Tout ça pour rien
J'ai presque fini mais pas ici.
Comme PowerPoint ne peut rien pour moi puisque je dois utiliser des userforms, je suis retourné vers une appli beaucoup plus accueillante, qui permet en outre à une macro de s'exécuter à l'ouverture du fichier. Comme ça l'utilisateur ne saura même pas qu'il est sur Excel

Me restera plus qu'à trouver quelqu'un de bien gentil qui aurait la licence VB6 et qui accepterait de passer gracieusement mon code en .EXE... (avec quelques retouches vu que je ne sais pas récupérer les dimensions d'un .bmp et que j'ai dû bricoler. Le bricolage étant du VBA-E)

Merci de votre intérêt.