Discussion :

[Sofy16]

Bonjour à tous,

Voilà ce que j'aimerais faire:
Lorsque je passe ma souris sur une image, une autre image apparait, puis disparait lorsque j'enlève la souris.
J'ai réussi à faire une macro qui me fait cela, cependant l'image n'apparait pas réellement puisqu'en fait elle est cachée par la première.
Macro :

Code :

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

1
2
3
4
5
6
Sub images()
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

J'aimerais donc savoir si il est possible de réellement rendre une image visible / invisible ?
Sinon, j'avais en tête une autre idée, qui consisterais à réaliser une macro permettant de changer la taille de mon image lorsque je passe la souris sur une autre image. Ainsi, je pourrais avoir l'image en taille très réduite, de façon à ce qu'elle soit quasiment invisible, et la macro augmenterait sa taille, afin que l'image devienne visible.

Merci pour votre aide !

[clementmarcotte]

Bonjour,

Bonjour à tous,

J'aimerais donc savoir si il est possible de réellement rendre une image visible / invisible ?

Merci pour votre aide !

Avec:

Code :

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

shape.visible=msotrue

0u

Code :

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

shape.visible = msofalse

où shape est l'objet shape particulier

Dans ton cas, cela devrait ressembler à ça:

Code :

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

ActivePresentation.Slides(1).Shapes("Image 1").visible = msofalse 'pour rendre invisible

P.S. C'est probablement dans la même rubrique d'aide où tu as trouvé ton .zorder. La diifférence, c'est que .visible est une propriété et non une méthode.

[Sofy16]

Bonjour,

Tout d'abord, merci ! C'est beaucoup mieux !
En revanche, je n'arrive pas à obtenir tout à fait ce que je veux, je pense que mon code n'est pas bon...
Avec le code ci-dessous, j'arrive à faire disparaitre l'image puis la faire réapparaitre au passage de souris. Or, c'est l'inverse que je voudrais ! Lorsque je passe ma souris sur l'image 1, l'image 2 apparait. Lorsque j'enlève ma souris de l'image 1, l'image 2 disparait.

Code :

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

1
2
3
4
5
6
7
8
 Sub images()
 
If ActivePresentation.Slides(1).Shapes("Image 2").Visible = msoTrue Then
ActivePresentation.Slides(1).Shapes("Image 2").Visible = msoFalse
Else: ActivePresentation.Slides(1).Shapes("Image 2").Visible = msoTrue
End If
 
End Sub

Merci !

[clementmarcotte]

Bonjour,

Inverse les msotrue (vrai - affiche) et les msofalse (Faux - n'affiche pas).