Re : Ne pas déplacer l'image
Bonjour Bearn 64, DoubleZero
, gilbert_RGI
,
Pour le
fun, un autre
essai qui devrait en terme d'utilisation de temps machine se retrouver entre la proposition de DoubleZero et celle de gilbert_RGI.
Il est basé sur Application.OnTime (toutes les 2 sec mais c'est paramétrable dans Module1 -> constante "
Periode").
Le nom des images de Feuil1 à laisser fixes sont indiqués dans la constante texte "
FormesFixes".
A l'ouverture du classeur, on stocke dans chaque image devant restée fixe les coordonnées de cette l'image.
Si
Feuil1 est la feuille active alors, on repositionne les images fixes toutes les 2 secondes.
Si une autre feuille est active, le repositionnement est normalement suspendu.
Les coordonnées des images fixes ne sont pas écrites en dur dans le code mais récupérées à chaque ouverture du classeur.
Il y a un peu de code dans les modules de code de "
Feuil1" et "
ThisWorkbook" ; le gros du code étant dans "
Module1".
Nota 1: si on copie une image fixe de Feuil1 pour la coller dans Feuil1 alors cette nouvelle image devient
temporairement fixe. Il suffit de fermer le classeur (en l'enregistrant !) et de le ré-ouvrir => la nouvelle image est mobile.
Nota 2 : ou bien pour pouvoir travailler tranquillement sur les images ou le code, on peut stopper le repositionnement automatique en exécutant la macro
ARRET (menu Développeur / Macros ou bien
ALT+F8). Pour relancer le repositionnement auto, exécuter la macro
INIT (menu Développeur / Macros ou bien
ALT+F8)