Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA PowerPoint Discussion :

Afficher/masquer des images à l'aide d'un bouton


Sujet :

VBA PowerPoint

  1. #1
    Nouveau Candidat au Club
    Afficher/masquer des images à l'aide d'un bouton
    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

  2. #2
    Nouveau membre du Club
    Exemple de Boutons pour Afficher / Masquer une Image
    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.

  3. #3
    Nouveau Candidat au Club
    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...


  4. #4
    Nouveau membre du Club
    pour lancer la Macro, lancer le ppt en Diaporama
    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.