IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
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 LABEL [PPT-2010]


Sujet :

VBA PowerPoint

  1. #1
    Membre du Club
    Homme Profil pro
    Inscrit en
    Janvier 2013
    Messages
    91
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : Janvier 2013
    Messages : 91
    Points : 54
    Points
    54
    Par défaut Afficher / MAsquer LABEL
    Bonjour
    Je me débrouille très bien en Excel VBA ; Mais ici je n'arrive pas ( car pas trouvé) à afficher ou masquer un LABEL inséré dans une diapo
    selon une variable affectée dans un "CommandButton" ?
    Je laisse un exemple
    Si bonne réponse > la diapo d'après masque le Label du bas et donc laisse EXCe...... etc
    Si mauvaise on Masque le Label du haut
    J'ai vu un espèce de tuto Sur ce site mais ????


    Remarque : Nous sommes sur un forum POWERPOINT .. et on ne peut pas joindre un PPTX, PPTM ..... ???? c'est de l'incohérence complète non ????
    D'ailleurs sur notre forum Exceldownload on va ne plus admettre les fichiers XLS , XLSX, XLSM !!!!!!!!!!!
    Fichiers attachés Fichiers attachés

  2. #2
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Août 2019
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Août 2019
    Messages : 4
    Points : 3
    Points
    3
    Par défaut
    Si j'ai bien compris Pour masquer ta zone de texte utilise la commande suivante
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActivePresentation.Slides(1).Shapes(3).Visible = True
    1) pour la première planche
    3) ici correspond a la troisième figure sur ta planche, ici la zone de texte "Laurier"

    Tu peux voir l'ordre des figures dans le panneau de sélection
    Nom : Annotation 2020-05-27 223955.png
Affichages : 369
Taille : 19,4 Ko


    Tu peux aussi nommer tes zone de texte, pour après les rechercher en VBA plus facilement sans passer par les numéros d'index qui ne sont pas forcément très explicite.

  3. #3
    Membre du Club
    Homme Profil pro
    Inscrit en
    Janvier 2013
    Messages
    91
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : Janvier 2013
    Messages : 91
    Points : 54
    Points
    54
    Par défaut
    Merci bien !!
    mais il va falloir du temps pour que j'analyse tout çà ... on est pas dans du EXCEL
    ou là je nage comme un poisson dans l'eau
    Sinon ... ce code tu le mets OU ??? je ne vois pas la référence au LABEL > visible = true ou flase
    ni de IF
    et dans quelle SUb ?? car c'est un enchainement du traitement du BOUTON DE Reponse !!!!

    donc normalement , je devrais avoir qq chose qui me dit en passant à la diapo suivante de 'masquer' le 1er LABEL ou le 2eme ??
    c'est cela que je cherche


    A suivre

  4. #4
    Membre du Club
    Homme Profil pro
    Inscrit en
    Janvier 2013
    Messages
    91
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : Janvier 2013
    Messages : 91
    Points : 54
    Points
    54
    Par défaut
    Bonjour
    Un peu de temps pour trouver l'intitulé des formes ..... et maintenant c'est bon !
    pour plus simple je suis passé par les formes au lieu des objets

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    ActivePresentation.Slides(2).Shapes("Rectangle 4").Visible = False
     ActivePresentation.Slides(2).Shapes("Rectangle 7").Visible = False
    Result = InputBox("Ecrivez votre réponse" & Chr(13) & "Annuler vous fera passer à la réponse")
     
    If Result = "" Then GoTo fin
     
    If Result Like "*glace*" And (Result Like "*thym*" Or Result Like "*tain*") Then
     
    rep = 1
     If rep = 1 Then
     ActivePresentation.Slides(2).Shapes("Rectangle 4").Visible = True
     
     SlideShowWindows(1).View.GotoSlide 2
     End If
    Exit Sub
    Else
    MsgBox " Bon réfléchissez un peu !!!!!! "
     
    GoTo deb
    End If
    fin:
    If rep = 0 Then
    ActivePresentation.Slides(2).Shapes("Rectangle 7").Visible = True
     SlideShowWindows(1).View.GotoSlide 2
     End If
    Voilà en gros le coeur de la Sub !!
    Encore merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Form] Afficher/Masquer une zone de texte
    Par SpyesX dans le forum IHM
    Réponses: 14
    Dernier message: 01/12/2005, 02h13
  2. Afficher/Masquer un <DIV> au clique de la souris.
    Par Joad dans le forum Général JavaScript
    Réponses: 5
    Dernier message: 24/09/2005, 11h55
  3. Afficher masquer des blocs sans javascript
    Par Space Cowboy dans le forum Balisage (X)HTML et validation W3C
    Réponses: 10
    Dernier message: 24/09/2005, 11h37
  4. Afficher / masquer des champs
    Par mickeliette dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 11/08/2005, 12h51
  5. Afficher/Masquer un bouton comme IE 6
    Par benj63 dans le forum C++Builder
    Réponses: 3
    Dernier message: 29/07/2002, 14h12

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo