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'hui1180
Hier1251
Cette semaine11908
Ce mois42140
Total depuis 200418244680

2
visiteurs actuellement en ligne

28 avril 2024