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

fanch55

XLDnaute Barbatruc

• 5 Mars 2023

• #16

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

XLDnaute Barbatruc

• 5 Mars 2023

• #17

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

 

Pièces jointes

• fichier test inside fanc55.xlsm

  12.7 KB · Affichages: 2

fanch55

XLDnaute Barbatruc

• 5 Mars 2023

• #18

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

 

patricktoulon

XLDnaute Barbatruc

• 5 Mars 2023

• #19

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

 

fanch55

XLDnaute Barbatruc

• 5 Mars 2023

• #20

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

 

patricktoulon

XLDnaute Barbatruc

• 5 Mars 2023

• #21

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

XLDnaute Barbatruc

• 5 Mars 2023

• #22

Enervant, non ?

 

patricktoulon

XLDnaute Barbatruc

• 5 Mars 2023

• #23

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

XLDnaute Barbatruc

• 5 Mars 2023

• #24

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

XLDnaute Barbatruc

• 5 Mars 2023

• #25

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

 

patricktoulon

XLDnaute Barbatruc

• 5 Mars 2023

• #26

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

 

fanch55

XLDnaute Barbatruc

• 5 Mars 2023

• #27

patricktoulon à dit:

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

Cliquez pour agrandir...

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

XLDnaute Barbatruc

• 5 Mars 2023

• #28

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

XLDnaute Barbatruc

• 5 Mars 2023

• #29

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

 

patricktoulon

XLDnaute Barbatruc

• 5 Mars 2023

• #30

de rien
tu veux rigoler ? 10 minute attends je reviens