Discussion :

[franck60]

Bonsoir,

Je viens de faire une animation avec une photo que j'ai caché avec des objets par dessus, lorsque les gens cliquent sur les objets de façon aléatoire, les objets s'éffacent pour laisser place à ma photo.

Je souhaiterai faire apparaître un bouton lorsque toutes les images qui cachent ma photo sont effacées, pour inciter les gens à cliquer pour passer à la diapo suivante.

Je pensais faire une macro du genre :

Si objet 1 = effacé et si objet 2 = effacé et si objet 3 = effacé..... alors bouton = Visible.

Comment faire ? ou existe t-il une autre solution

[clementmarcotte]

Bonjour

En théorie si tu additionnes 1 à un total d'images effacées dès que ton image est effacée, et que tu le compares au nombre total d'images cela devrait permettre faire la job.

[franck60]

Bonsoir,

Merci pour votre réponse,

Piste intéressante et comment puis-je exprimer ça en VBA, auriez-vous un exemple de code ?

[clementmarcotte]

Bonjour,

Cela ne pourra pas être immédiatement. Va falloir que je me bâtisse quelque chose à partir de 0.

[franck60]

ok pas de problème je ne suis pas pressé à la minute. Je peux attendre un peu.
Merci d'avance

[franck60]

Pour préciser les choses, mes images sont des déclencheurs, donc je voudrais qu'une fois tous les déclencheurs sont passés, apparaisse un bouton

[clementmarcotte]

Bonjour,

Ce n'est pas mon habitude, mais je pense que cela irait mieux avec un fichier exemple, même si c'est juste une diapositive avec les divers éléments. Parce que là, j'avoue que je ne réussis pas vraiment à bien visualiser ton problème.

[franck60]

https://www.dropbox.com/s/8jc1atrmji...ttest.zip?dl=0

Voici un exemple

[franck60]

Après avoir fait plusieurs tests je peux préciser mon besoin, qui malheureusement devient urgent, car il faut que je présente ça Mardi matin

En fait mon problème est à l'initialisation de mon animation qu'un bouton (en faisant insertion - Formes) n'apparaisse pas tout de suite mais seulement lorsque toutes mes images sur lesquelles j'ai mit un effet déclencheur au clic qui permet de l"estomper soient plus visibles.

J'ai essayer de passer par un

Code :

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

1
2
3
4
5
6
Sub image_apparaitre()
    ActivePresentation.Slides(1).Shapes("Rectangle 17").Visible = msoFalse
    If ActivePresentation.Slides(1).Shapes("Image 36").Visible = msoFalse Then
    ActivePresentation.Slides(1).Shapes("Rectangle 17").Visible = msoTrue
    End If
End Sub

Mais ça ne fonctionne pas, soit je ne mets pas le code au bon endroit, soit je ne sais pas traduire l'effet estomper en vba.

Comment faire ?

Pour qu'au lancement mon bouton ne soit pas visible, et qu'il apparaisse une fois toutes mes images ayant l'effet "déclencheur au clic - estomper" soient non visibles.

Merci d'avance pour votre aide à tous.

[clementmarcotte]

Si ton bouton est caché dans la diapositive, c'est plutôt normal. La gestion des événements est rudimentaire dans PPT. Tu peux mettre une Msgbox avec le message de cliquer pour continuer quand ton image de fond sera complètement visible.

P.S. Ce n'est pas de ma faute, si DropBox a pris deux jours avant de me laisser télécharger.

[franck60]

Bonsoir,

Merci pour ta réponse, en effet ta solution est la bonne, ça rejoint en effet ce que je voulais faire, mais je ne sais pas traduire le fais que ma photo soit complétement découverte, peux-tu m'aider ?
Pour info je ne m'adresser pas spécialement à toi lorsque je disais que ça devenait urgent, je comprends tout à fait que tu ai autre chose à faire, nous avons des vies privées... je suis désolé si tu as pris mon message comme une petite préssion je ne me permettrais pas, surtout avec quelqu'un qui essai de m'aider.

Bonne soirée.

[clementmarcotte]

Bonjour,

Bonsoir,

Merci pour ta réponse, en effet ta solution est la bonne, ça rejoint en effet ce que je voulais faire, mais je ne sais pas traduire le fais que ma photo soit complétement découverte, peux-tu m'aider ?
Bonne soirée.

Tu peux avoir le nombre d'images sur ta diapositive avec shapes.count. (En supposant que tu aies juste des images). Tu peux mettre un compteur qui augmente de 1, à chaque fois que tu caches ou fermes une image. Quand la différence entre le count et le compteur est de un, tu as en principe atteint ton image cachée. Si tu n'as pas juste des images, tu dois ajuster le 1 final en conséquence.

[franck60]

Merci pour ta solution en effet c'est ça. Pourrais-tu me donnez un exemple de code en imaginant que j'ai 3 images et qu'au bout de 2 un message texte apparaisse, histoire que je ne me trompe pas car finalement c'est Lundi Soir que je présente mon animation.

J'abuse un peu mais là tu viens de me sauver la vie, car le coup du compteur il fallait y penser.

Merci encore.

[clementmarcotte]

Bonjour,

Le gros problème, c'est que je n'ai rien trouvé qui permette de lancer une macro au clic sur une forme. La seule solution que je vois c'est de mettre des contrôles Image (contrôles ActiveX dans l'onglet Développeur du Ruban et de mettre une images dans chaque contrôle. Sauf que cela ne permet pas de jouer avec la rotation de tes images. Et là, on dirait bien que tu perds tes animationsPrésentation1.zip

En affichant le code du contrôle et en utilisant l'événement click, tu peux cacher l'image et actionner le compteur

Dans l'exemple que je viens de faire à la va-vite, tu as in contrôle image sur une diapositive. Tu mets le chemin d'accès de ton image dans la propriété Image.
Pour ajouter un contrôle, tu cliques dans le ruban et tu le dessines sur la diapositive. Et tu cliques sur "Visualiser le code"

Dans l'éditeur VBA, tu fais un double-clic sur l'icône de la diapositive pour voir le module de code de la diapositive et deux clics sur module1 pour voir le code du module.