Image sur lien hypertexte au niveau du pointeur souris

Bonsoir,

suite à une demande récente, j'ai fini par finaliser un fichier qui montre comment afficher une image sur le pointeur de souris lorsqu'il y a un lien.
Il n'est pas "poussé" dans le sens où l'idéal serait d'avoir l'image de la cible du lien par exemple...

Le fichier :

Il supporte :
- l'affichage ou le masquage des entêtes d'onglet, de la barre de formule,
- l'option "afficher seulement les onglets du ruban".

Il n'est pas compatible :
- avec le mode "manuel" du fullscreen, car pour celui-ci je n'ai pas trouvé comment le détecter.
Le test de IF Application.DisplayFullScreen = True ne marche qu'avec la commande fullscreen de VBA, si vous mettez la feuille en plein écran à la main et que vous lancez l'instruction Application.DisplayFullScreen = False, la feuille ne bougera pas d'aperçu. Enfin ce sont mes conclusions suite à mes tests...
- avec les scroll de la feuille (il faudrait que je me replonge dans mes code de "position USF"...)

L'image disparait lors d'un clic dans une cellule.

Si vous avez des remarques ou questions, ou bien encore des proposition de modification, n'hésitez pas !

@ bientôt

LouReeD

Bonsoir,

suite "instructions" de X Cellus, simplification du code !
Mise en place d'un lien vers la feuille système pour chaque image afin de représenter l'utilisation de ces derniers.
Supporte le déplacement des cellules où se trouve le lien sur l'ensemble de la feuille.

Le fichier en version 2 :

@ bientôt

LouReeD