Deprecated: RegularLabs\Library\ArrayHelper::implode(): Implicitly marking parameter $last_glue as nullable is deprecated, the explicit nullable type must be used instead in /homepages/10/d550841420/htdocs/libraries/regularlabs/src/ArrayHelper.php on line 225
Comment faire glisser la souris sur une forme pour faire apparaître puis disparaître un texte

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 71,7% France
Canada 5,2% Canada
Chine 4,3% Chine

Total:

161

Pays
018475119
Aujourd'hui: 261
Hier: 370
Cette semaine: 1.429
Semaine dernière: 2.492
Ce mois: 631