ImageMso Converter 1.0

[patricktoulon]

patricktoulon a soumis une nouvelle ressource:

ImageMso Converter - un applicatif pour modifier et ou sauvegarder vos icones excel préférés en jpg ou png

Bonjour a tous
voici mon imageMso Converter
cette applicatif vous permet de modifier et enregistrer les icones imageMso de excel en JPG ou PNG
juste une petite démo

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

En savoir plus sur cette ressource...

 

[oguruma]

patricktoulon a soumis une nouvelle ressource:

ImageMso Converter - un applicatif pour modifier et ou sauvegarder vos icones excel préférés en jpg ou png



En savoir plus sur cette ressource...

patricktoulon a soumis une nouvelle ressource:

ImageMso Converter - un applicatif pour modifier et ou sauvegarder vos icones excel préférés en jpg ou png



En savoir plus sur cette ressource...

Quel jeu de patience pour construire le UserForm, j'admire 🙂

 

[patricktoulon]

bonsoir @oguruma
l'userform c'est trois fois rien
c'est une astuce simple comme un bonjour
elle m’évite de devoir faire une classe de 100 label ou 100 event click dans le userform
ce qui me permet de changer 100 images a chaque coup de molette sans sourciller 😉

 

[cathodique]

Bonjour Patrick,

Je viens juste pour t'informer que sur win7 64 bit et Excel 2010 32 bit, le code plante (image).

ça serait sympa de voir le pourquoi de ce plantage. Car j'avoue que ça me dépasse.

 

[patricktoulon]

re bonjour @cathodique
oui je sais getdpiwindow n'existe pas sur 2007 et sur 2010

correctif pour w7 office 2007

Dim zoo#
        'PPx = 1 / (GetDpiForWindow(Application.hWnd) / 72)
        With ActiveWindow.Panes(1)
        z = .Parent.Zoom / 100
        PPx = 1 / ((.PointsToScreenPixelsX(7200 * z) - .PointsToScreenPixelsX(0)) / 7200)
        End With

 

[jurassic pork]

re bonjour @cathodique
oui je sais getdpiwindow n'existe pas sur 2007

correctif pour w7 office 2007

Dim zoo#
        'PPx = 1 / (GetDpiForWindow(Application.hWnd) / 72)
        With ActiveWindow.Panes(1)
        z = .Parent.Zoom / 100
        PPx = 1 / ((.PointsToScreenPixelsX(7200 * z) - .PointsToScreenPixelsX(0)) / 7200)
        End With

Hello patricktoulon,
correction pour pas induire en erreur :
getdpiwindow n'existe pas sur Windows 7
Ami calmant, J.P

 

[patricktoulon]

tu va pas chipoter toi hein 🤣 🤣 🤣 🤣
j'ai justement besoin du champion UIAutomation client , je vais ouvrir une discussion a ce sujet

 

[jurassic pork]

je chipote pas trop, c'est seulement une indication
Pour le UIAutomation, Jafaar Tribak a l'air pas mal.

 

[patricktoulon]

non lui il est plutôt IAcessible et api c'est toi le champion Uiauto

 

[oguruma]

Hello patricktoulon,
correction pour pas induire en erreur :
getdpiwindow n'existe pas sur Windows 7
Ami calmant, J.P

bonjour, ça existe encore ce machin'là ? Windows7?.... le fameux Seven 😀
Si tu passes sous Windows Workstation NT 3.51 ? 😀 Bon J'rigole

 

[cathodique]

re bonjour @cathodique
oui je sais getdpiwindow n'existe pas sur 2007 et sur 2010

correctif pour w7 office 2007

Dim zoo#
        'PPx = 1 / (GetDpiForWindow(Application.hWnd) / 72)
        With ActiveWindow.Panes(1)
        z = .Parent.Zoom / 100
        PPx = 1 / ((.PointsToScreenPixelsX(7200 * z) - .PointsToScreenPixelsX(0)) / 7200)
        End With

Merci beaucoup pour vos retours. C'est bon, ne plante plus.

 

[jurassic pork]

bonjour, ça existe encore ce machin'là ? Windows7?.... le fameux Seven 😀
Si tu passes sous Windows Workstation NT 3.51 ? 😀 Bon J'rigole

Selon les données les plus récentes disponibles, la part de marché des versions de Windows utilisées sur les ordinateurs est la suivante :

• Windows 10 détient actuellement 70,03 % des parts de marché
• Windows 11 continue de décliner et détient 25,65 % des parts de marché
• Windows 7 représente encore 3,04 % des parts de marché
• Windows 8.1 détient 0,44 % des parts de marché

 

[patricktoulon]

re
a bon le 11 décline ?
ca veut dire quoi que certains reviennent à 10 ou pas ailleurs ? ou les deux

 

[patricktoulon]

3.5 NT ben c'est le noyau de windows me semble t il non ?

bon dans tout les cas le problème de cathodique est résolu
j'hésite a faire le correctif sur le fichier téléchargeable pour les puristes 🤣 🤣

 

[jurassic pork]

re
a bon le 11 décline ?
ca veut dire quoi que certains reviennent à 10 ou pas ailleurs ? ou les deux

ben je ne sais pas trop pourquoi mais il perd des utilisateurs alors que les PC vendus actuellement avec Windows le sont avec windows 11.
Ce qui rend difficile l’adoption de Windows 11, surtout pour les utilisateurs de Windows 10, c’est l’absence de changements significatifs. Passer à la version ultérieure n’apporte pas grand-chose, pire encore : certaines fonctionnalités ont été supprimées.
c'est vrai qu'entre un Windows 11 et un windows 10 on est pas franchement dépaysé