démonstration de l'utilisation des api en Excelmacro4 episode 2 les frames transparentes 2.1.0

[fanch55]

Mon écran est un 27' et j'utilise le zoom 100%,
il faudrait être vraiment bigleux pour pousser le zoom window à 150% sur un tel écran .
J'ai testé avec le zoom à 150%, le défaut est identique .
Mon épouse a un écran 17' à 100% aussi.
De toutes façons, le fond est assuré, c'est la transparence, le bord du picture c'est peanut ....

 

[patricktoulon]

re
ok il faut donc regarder ce que donne le width.-indewidth

chez toi chez moi ca doit donner pareil sur W10
fait le test avec un simple userform et une frame

le fichier test en joint

 

[fanch55]

Seule différence sur W11, les fenêtres ne sont pas rectangulaires ....

 

[patricktoulon]

re
c'est quoi ces angles arrondis sur l'userform ??? c'est pas le thème classique de W10 ça

 

[fanch55]

Je viens de vérifier sur le W10 de ma femme, c'est aussi identique et rectangulaire que ton W10 ...

 

[patricktoulon]

re
a tout les coup tu a le décalage de W7
garde le inside partout dans le code mais enlève en plus (1.88)
teste ça pour voir si j'ai raison

c.Move 0, 0, .InsideWidth - 1.88, .InsideHeight - 1.88: c.BackStyle = 0: c.BorderStyle = 0: c.PictureSizeMode = 1

Set MasQ = ActiveSheet.Shapes.AddShape(5, 0, 0, FraM.InsideWidth - 1.88, FraM.InsideHeight - 1.88)

 

[fanch55]

Enervant, non ?

 

[patricktoulon]

pardon c'est 1.98

le décalage sur W7 pour un userform est de 3.96 que je rattrape normalement avec une autre api de la dwmapi.dll qui gere les thèmes
3.96/2=1.98

ben oui c'est énervant c'est pas logique du tout ton truc là

 

[patricktoulon]

dernier essai

c.Move 1,1, .InsideWidth - 3.96, .InsideHeight - 3.96: c.BackStyle = 0: c.BorderStyle = 0: c.PictureSizeMode = 1

Set MasQ = ActiveSheet.Shapes.AddShape(5, 0, 0, FraM.InsideWidth - 3.96, FraM.InsideHeight - 3.96)

 

[fanch55]

En voilà une correction qui y'en a être bonne ....

 

[patricktoulon]

re
bon ben c'est clair tu a le décalage de W7
ton W10 ca serait pas une mise ajour par hasard

 

[fanch55]

re
bon ben c'est clair tu a le décalage de W7
ton W10 ca serait pas une mise ajour par hasard

Pas du tout, W10 pro installé à froid avec sa licence officielle et tout le toutim ( version Oem ) .
Migré en W11 depuis 1 an et demi ...

Ma femme est un W10 dérivé de W8.1 ....( son micro )

 

[patricktoulon]

bizarre
la migration W10-->W11 visiblement crée le problème W7 avec la dwmapi.dll
dans tout les cas chez moi la diminution est quasiment pas visible on laisse comme ça
comme ça c'est valable pour tous
je mettrais un avertissement sur ce point dans la mise a jour

bon ben tu es content tu l'a ta frame transparente avec des jolis angles arrondis

 

[fanch55]

Originellement, ce n'était pas pour moi, mais cela peut servir à tous ....
Merci Pat

 

[patricktoulon]

de rien
tu veux rigoler ? 10 minute attends je reviens