Discussion :

[SnakeyBall]

Bonjour,

Je me suis inscrit pour solliciter votre aide. Dans le cadre de mon travail j'ai besoin d'un outil sous powerpoint me permettant d'alterner 2 images au passage de la souris.
J'ai trouvé ce code ici :

Sub images()
'si l'image 1 est au dessus
If ActivePresentation.Slides(1).Shapes("Image 1").ZOrderPosition > 1 Then
ActivePresentation.Slides(1).Shapes("Image 1").ZOrder msoSendBackward
Else: ActivePresentation.Slides(1).Shapes("Image 1").ZOrder msoBringToFront
End If
End Sub

Problème, c'est la première fois que je fait une macro, j'y connais rien du tout. J'ai essayé de me dépatouyé avec tout ca mais ca marche pas, au débogage j'ai des messages d'erreur genre "image not found in the shape collection" ou autres messages...

Bref, besoin d'aide car mes recherches seul n'aboutissent pas et me prennent un temps fou.

Quelqu'un pour m'aider? un petit tuto genre "pas a pas" serrai super! merci

[Invité]

Bonjour

Le code que tu as récupérer est à adapter car comment se nomment tes images ?

Pour savoir cela, il faut consulter la FAQ PPT du forum.

De plus, tes deux images sont sur quelles diapositives ?

Philippe

[SnakeyBall]

Hello,

Alors j'ai regardé la faq ppt mais ya rien qui m'a inspiré malgré le fait qu'elle soit complète.

D'autres solutions? je pense que je dois faire une erreur assez bete, mais pas moyen de trouver

[SnakeyBall]

Toujours pas de réponse et d'aide? snif

[PPz78]

Il faut faire attention au nom des images.
Il n'est pas certain qu'elles se nomment image 1 et image 2.
Chez moi le nom est Picture 4 et Picture 5.

Avec le code ci dessous, j'ai ajouté quelques ligne pour récupérer les noms des shapes, il suffit ensuite d'adapter le code en conséquence.

Bonne journée.

PPz

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
Sub images()
 
 
Nb_Shape = ActivePresentation.Slides(1).Shapes.Count
    Text = "Il y a " & Nb_Shape & " objets sur la planche :" & Chr(13)
For i = 1 To Nb_Shape
    Nom_Objet = ActivePresentation.Slides(1).Shapes(i).Name
    Text = Text & " le nom de l'objet " & i & " : " & Nom_Objet & Chr(13)
Next
    MsgBox Text
 
 
If ActivePresentation.Slides(1).Shapes("Picture 4").ZOrderPosition > 1 Then
ActivePresentation.Slides(1).Shapes("Picture 4").ZOrder msoSendBackward
Else: ActivePresentation.Slides(1).Shapes("Picture 4").ZOrder msoBringToFront
End If
End Sub

[SnakeyBall]

Roooo merci beaucoup !!! finalement c'était bien le nom des shapes mon soucis, la ca marche super bien pour 1 diapo

Je vais tester tout ca plus longuement

En tout cas merci beaucoup, tu m'as rendu un enorme service et tu as fait un don sans vraiment le savoir à un programme de recherche

A bientôt

[PPz78]

Merci d'ajouter un "petit Résolu"

PPz

[SnakeyBall]

Voila qui est fait encore merci