Discussion :

[pio_killer]

Bonjour,

je voudrais savoir si c'était possible de cacher des formes (images, flèches, etc...) sur une diapositive.
En fait, c'est parceque j'utilise un document power point au boulot dans lequel quelqu'un a fait une macro avec un menu déroulant.
Lorsqu'on clique sur les éléments du menu, cela fait apparaitre ou disparaitre des formes sur le slide.
Je voudrais faire la même chose sur un autre document mais je ne sais pas comment la personne a fait (il ne fait plus partie de l'entreprise)

Merci d'avance

[lou-03]

Il te suffit d'ouvrir la présentation avec la macro, d'aller dans affichage > macro.
Là une fenêtre s'ouvre et tu devrais voir la macro qu'il a utilisé. Il te suffit de cliquer sur modifier de copier son code. Ensuite ouvre ta présentation, créer une macro (de la même façon qu'au dessus) et colles le code.

[pio_killer]

Merci pour ta réponse.

Le problème est que je ne comprend pas très bien son programme.
J'ai des notions en vba mais chacun programme à sa façon.

C'est pour cela que je cherche à savoir si c'est possible de faire ce que j'ai demandé afin de comprendre le code.

[lou-03]

Ah ok, désolée je ne pourrais pas t'aider là-dessus, je ne connais pas vba :s

[pio_killer]

J'ai trouvé

Ca pour tout masquer sur une diapositive

Code :

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

1
2
3
4
5
6
7
8
Sub MasqueTout()
'---------- Mettre le numéro de la diapositive -----------
NumSlide = 1
'---------------------------------------------------------
For NumShape = 1 To ActivePresentation.Slides(NumSlide).Shapes.Count
    ActivePresentation.Slides(NumSlide).Shapes(NumShape).Visible = False
Next NumShape
End Sub

Ca pour tout afficher sur une diapositive

Code :

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

1
2
3
4
5
6
7
8
Sub AfficheTout()
'---------- Mettre le numéro de la diapositive -----------
NumSlide = 1
'---------------------------------------------------------
For NumShape = 1 To ActivePresentation.Slides(NumSlide).Shapes.Count
    ActivePresentation.Slides(NumSlide).Shapes(NumShape).Visible = True
Next NumShape
End Sub

Par contre, je crois savoir que vba utlise des fonctions qui existent dans le logiciel (ici dans power point). Or je ne trouve pas de bouton pour masquer.

merci encore.

[PPz78]

Bonjour,

Oui c'est bien le code qui rend invisibles ou visibles tous les "Shapes" de la diapo 1.

Mais que souhaites tu faire de plus ?

PPz

[pio_killer]

Désolé, j'aurais pu mettre résolu

C'était pour faire la même chose sur un autre document.

Comme j'ai trouvé, sujet résolu.

[Sepia]

Salut Pio_killer,

Une question. Pourquoi une macro VBA au lieu d'utiliser les fonctions d'animation qui permettent d'effacer sur un clic ? ==> pas de VBA, c'est natif. On peut effacer tous le sobjets par une simple animation activable par un clic, une transition, un délai, un bouton de commande....

Tiens-moi au courant, peut-être qu'il y a quelque chose que je n'ai pas compris dans ton post ?
@+