user_mobilelogo

 

Pour ce type d'exercice, une macro est nécessaire.

Soit une diapositive sur laquelle nous mettrons par exemple 4 objets (dans mon exemple j'ai tracé 4 rectangles).

En passant la souris sur chacun de ces rectangles, un texte différent selon le rectangle doit apparaître dans un cercle tracé dans la même diapositive.

Si l'on souhaite que le texte disparaisse en faisant glisser la souris hors du rectangle, le plus simple est de tracer un rectangle transparent situé sous les 4 rectangle. Dans mon exemple, ce rectangle se nomme "rectangle_vide".

Vous devrez ensuite créer une action associée à chaque forme afin de définir que la macro sera exécutée au passage de la souris :

Puis :

Onglet Pointer avec la souris, Exécuter la macro (sélection de la macro)

 

Voici la macro :

Sub change_texte(forme As Shape)
With SlideShowWindows(1).View.Slide.Shapes("cercle_texte").TextFrame.TextRange
    Select Case forme.Name
        Case "Rectangle_vide"
        .Text = ""
        Case "Rectangle 1"
        .Text = "Information 1"
        Case "Rectangle 2"
        .Text = "Information 2"
        Case "Rectangle 3"
        .Text = "Information 3"
        Case "Rectangle 4"
        .Text = "Information 4"
        End Select
    End With
End Sub

 

 

Statistiques

Aujourd'hui753
Hier2165
Cette semaine8249
Ce mois38481
Total depuis 200418241021

18
visiteurs actuellement en ligne

26 avril 2024