Microsoft 365 Zoomer automatiquement l'Horloge de Patrick

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous :)
@patrick :
Encore merci pour ton horloge :
Hello Patrick joueur
Je confirme : elle est Super pour moi ton horloge
J'espère qu'elle fonctionnera pour tous et toutes versions Excel

Si ça te dit, j'ai une autre demande :
1 - Puisqu'il est maintenant possible de la déplacer (tous éléments inclus)
J'ai fait des tentatives pour zoomer à l'ouverture et rezoomer à la fermeture mais ça ne fonctionne pas bien :
L'objectif est de retrouver la même dimension que le zoom souhaité à l'ouverture.
VB:
Sub Déplace_Zouverture()
    ActiveSheet.Shapes.Range(Array("shmontre")).Select
    Selection.ShapeRange.IncrementLeft -285.75
    Selection.ShapeRange.IncrementTop -28.5
    Selection.ShapeRange.ScaleWidth 0.2913838012, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.2913837314, msoFalse, msoScaleFromTopLeft
    Range("A1").Select
End Sub
Sub Déplace_Zfermeture()
    ActiveSheet.Shapes.Range(Array("shmontre")).Select
    Selection.ShapeRange.ScaleWidth 2.4043033484, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 2.4043032744, msoFalse, msoScaleFromTopLeft
    Range("A1").Select
End Sub
En cas que tu t'y intéresses, je joins le fichier

Merci Patrick,
lionel :)
 

Pièces jointes

  • horloge en shape v2 .2bublewaterwatch.xlsm
    34.3 KB · Affichages: 10
Dernière édition:

Usine à gaz

XLDnaute Barbatruc
Bonjour Lionel

A mon avis Patrick va faire une attaque :oops:
Zen Patrick.... 🤣

Essaye de cliquer sur :
Déplace_Zouverture
Et puis apres sur :
Déplace_Zfermeture

Et recommences plusieurs fois et regardes ton horloge qui rejoins le pays des lilliputiens o_O

@Phil69970
Bonjour Phil69970 :)
NON, il est costaud notre Patrick :p

Quoi que .... D'autant que j'en ai une qui suivra qui sera terrible lol 🤣🤣🤣

Tu as réussi à faire fonctionner l'horloge chez toi ?
Lionel :)
 

patricktoulon

XLDnaute Barbatruc
Lionel ne doit pas savoir lire
1665144857156.png


en plus pour me la faire aussi petite ca valait bien le coup que m'ennuie a faire ça au milimètre
 

Usine à gaz

XLDnaute Barbatruc
Lionel ne doit pas savoir lire
Regarde la pièce jointe 1151618

en plus pour me la faire aussi petite ca valait bien le coup que m'ennuie a faire ça au milimètre
LOL petite ... petite... petite ... comme tu y vas 🤣 🤣 🤣 🤣 🤣 🤣 🤣 🤣 🤣
Par contre : tu as raison, je ne l'avais pas vu celui-là :oops:
Attends : je t'en prépare une bien GROSSE lol 😘😘
Si je ne me fais pas jeter, moi ... 🤪🤪🤪
lionel :)
 

ChTi160

XLDnaute Barbatruc
Bonjour
Moi le fichier de Lionel fonctionne correctement (W11 365 32)
Même si la taille ne me permet pas une lecture optimum de L'heure (mais Lionel doit être équipé de lunettes performantes) Lol
Bonne continuation
Bravo et Merci à Patrick pour ce super travail
Jean marie
 

Usine à gaz

XLDnaute Barbatruc
en dessous de 200 de diamètre ça ne vaut pas le coup elle a été faite pour une page d'acceuil (une sorte d'ecran de veille) par pour en faire un widjet sur une feuille

la prochaine qui arrive oui elle sera dimentionnable de 40 de rayon à X
Ha pour une page d'accueil ? : lol fallait le dire qu'elle n'est pas à mettre sur une feuille de travail.
Scrogneugneu : Et je cherche... et je cherche... et je cherche ...

LOL pour la bouteille, c'est ok... pour les nanas, faudra répondre à la question qui va suivre lol
:p:p:p
 

Discussions similaires

Statistiques des forums

Discussions
314 714
Messages
2 112 142
Membres
111 439
dernier inscrit
elde87