Discussion :

[GwabX]

Bonjour,

J'ai trouvé les "Boutons d'action" dans la bibliothèque des formes, mais je n'arrive pas à créer la macro qui me permettrait d'afficher et masquer des images en cliquant sur ce bouton.

J'ai 6 images dans ma diapo, je voudrais donc créer 6 boutons permettant d'afficher chacune des 6 images et de masquer les 5 autres (le bouton 1 affiche l'image 1 et masque la 2, la 3, la 4, la 5 et la 6, le bouton 2 affiche l'image 2 et masque la 1, la 3, la 4, la 5 et la 6, etc.)

Merci d'avance pour votre aide

[Yves_VBA]

Bonjour GwabX,

ci-dessous un petit exemple que je viens de créer (avec un bouton CB_Show et un bouton CB_Hide) pour afficher / masquer une image dans un slide PowerPoint.
Tu peux mettre un seul bouton (à enclenchement) si tu veux et mettre les deux commandes sur le même bouton.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CB_HideShow_Click()
 
   ActivePresentation.Slides(1).Shapes.Range(Array(1)).Visible = False
 
End Sub
 
Private Sub CB_Show_Click()
 
   ActivePresentation.Slides(1).Shapes.Range(Array(1)).Visible = True
 
End Sub

En espérant que ça puisse t'aider.

Yves.

[GwabX]

Bonjour Yves et merci pour ta proposition.

Le problème maintenant, c'est que quand j'utilise "Private sub" au lieu de "Sub", l'option "Exécuter la macro" n'est plus disponible dans les paramètres des actions de mon bouton...

[Yves_VBA]

Bonjour,

il faut associer la macro au bouton CommandButton et lancer le PowerPoint (comme un diaporama),
et ensuite lorsque tu cliques sur le bouton la macro se lance automatiquement (à condition d'avoir autorisé le lancement des macros (sécurité pas trop haute).

Malheureusement, je n'arrive pas à joindre mon fichier à ce message, mais chez moi ça fonctionne bien.

J'espère t'avoir aidé.

Yves.