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


Sujet :

VBA PowerPoint

  1. #1
    Membre du Club
    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 !!!!!!!!!!!

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



    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
    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
    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