Discussion :

[ionah]

Bonjour à tous!

J'ai, dans une présentation, une palanquée d'hyperliens qui me servent de "navigation".
Chaque lien est dans un "shape" séparé.
Je voudrais, lorsque l'utilisateur passe sa souris sur un de ces liens, que son aspect change:
Couleur de fond, couleur de typo, etc.
Et bien sûr, qu'il revienne à son aspect original lorsque la souris sort du lien.

Comment faire ça en VBA?

[Gado2600]

Bonjour,
Je viens de faire un essai rapide sur ton problème et voici ce que j'ai fait :
J'ai pris deux contrôles ActiveX de type label.
L'un est en arrière-plan par rapport à l'autre et est placé de manière à superposé les deux.

Ensuite sur chacun des deux, j'ai mis un événement MouseMove, ce qui me permet de détecter quand je passe dessus.
Le plus label sera celui qui s'affichera dans ta présentation (ton lien hypertexte).
Lorsque je passe dessus, je lui donne, en VBA, les indications pour qu'il change sa mise en forme.

Le label le plus grand qui est placé derrière le petit, doit permettre, sur le même type d’événement, de remettre au format d'origine.

J'ai fait mes tests en changement le caption du petit label.

Voilà, c'est un peu du bricolage, mais cela peut fonctionner

Cordialement,

[ionah]

Merci pour ta réponse rapide, mais je n'y comprends rien.
Je suis débutant en VBA et lorsque tu me parles d'activeX ou de Label, je suis perdu.

En plus, doubler tous mes hyperliens ne me semble pas une bonne idée:
Non client change sans arrêt le contenu de la présentation…

Bon, simplifions:
J'ai un hyperlien sur le slide 17 qui envoi vers le slide 32.
Puis-je juste faire un effet d'inversion de couleur lorsque je clique sur le lien?

[Gado2600]

Ce qui est appelé label, ce sont les étiquettes.
Les contrôles ActiveX sont des contrôles que tu peux avoir avec le mode Développeur.

Oui, tu dois avoir la fonction OnClick.
Mais je n'ai pas vu comment faire pour attribuer une fonction sur une shape classique...
Cordialement,

[ionah]

Merci quand même.

Peut-être quelqu'un d'autre passera par là...