Recherche

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 :

Onglet Insertion, groupe Liens, bouton Actions

Puis :

Onglet Pointer avec la sourisExé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

France 73,8% France
Canada 5,9% Canada
Belgique 3,8% Belgique

Total:

147

Pays
018412541
Aujourd'hui: 111
Hier: 396
Cette semaine: 2.446
Semaine dernière: 2.952
Ce mois: 7.308