XL 2016 VBA - Redimensionner un UserForm après le retrait de la barre du menu système (Caption)

Dudu2

XLDnaute Barbatruc

• Mardi à 17:42

• #61

Moi je ne peux rien tirer du Window RECT car il est toujours égal à celui du UserForm.
Attention de bien mettre des DoEvents avant de capturer les dimensions !

 

Pièces jointes

• Redimensionner un UserForm sans le Caption TEST avec Window RECT.xlsm

  50.1 KB · Affichages: 4

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• Mardi à 17:53

• #62

@ChTi160,
Tu peux envoyer tes résultats d'avec le fichier du Post #61 ci-dessus STP ?
En copie d'écran.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• Mardi à 18:04

• #63

Re
Pas pour l'instant lol
Je suis avec mes petits enfants ! Lol
Jusqu'à demain soir. Depuis mon téléphone
Jean marie

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• Mardi à 18:22

• #64

Ok, pas de soucis. De toutes façons je n'y crois guère.
En arrondis, je pense qu'Excel déconne avec le rajout du Caption qui raccourci la Height de -0.75 points et de l'InsideHeight de -0.15 point par rapport au UserForm d'origine, car le bottom du Label rose n'a pas bougé et déborde alors de ces 0.15 point du UserForm.

Je ne vais pas chercher plus loin car c'est peu significatif, sauf si l'opération est répétée en boucle sur le UserForm après rajout du Caption (à tester aussi) pour voir si la réduction des Height et InsideHeight se poursuit.

 

Dernière édition: Mardi à 18:27

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• Mardi à 18:52

• #65

@Dudu2
attention chez moi le RECT c'est celui d'une frame dynamique
pas celui du userform
je met une frame dynamico je prend le rectangle par le getwindowsrect sur son handle
la comparaison des deux me sert juste pour le redescendre pour éviter l'effet de sursaut

en gros le userform à la fin fait la dimension de la frame grace a son rect converti en points
n'oublie pas chez toi 0.6

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• Mardi à 19:11

• #66

Oui, ok tu fais un Frame mais je sais pas comment je pourrais l'exploiter pour corriger le problème très étrange des arrondis cité ci-dessus. De mon point de vue c'est un bug Excel sauf si j'ai mal pris la mesure initiale qui réduirait aussi de fractions de point la Height et l'InsideHeight. Mais je ne peux pas le vérifier.

Concernant les Pixel / Point, ajoute cette fonction qui vient d'ailleurs de ton instruction de lecture du Registre pour ne pas avoir à modifier le code.

VB:

'----------------
'Version SANS API (100% exact, un Static pour éviter le Shell à chaque fois)
'----------------
Function PointToPixel() As Double
    Static SavePointToPixel As Double
  
    If SavePointToPixel = 0 Then
        SavePointToPixel = CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\AppliedDPI") / Application.InchesToPoints(1)
    End If
    PointToPixel = SavePointToPixel
End Function

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• Mardi à 19:44

• #67

voila les deux sont aussi valable l'un que l'autre

 

Pièces jointes

• test.xlsm

  59.8 KB · Affichages: 4

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• Mardi à 22:36

• #68

Hi,

Résultat de #61​

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• Hier à 08:12

• #69

Bonjour le Fil
Ma version du #61
Bonne Journée
Jean marie

 

Pièces jointes

• Dudu-12.gif

  325.6 KB · Affichages: 6

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• Hier à 09:01

• #70

Merci à vous 2.
C'est intéressant car @TooFatBoy qui a les coins carrés a le même phénomène que @ChTi160 qui a les coins ronds (je parle des UserForm bien sûr ). Donc ce n'est pas lié aux coins => 1 enseignement.
Entre l'original et le final reconstitué on perd 0.75 en Height et 0.15 en InsideHeight.
Ce n'est pas du tout le cas chez moi !
Par contre les Width et InsideWidth restent identiques dans tous les cas.

@TooFatBoy et @ChTi160 si tu n'as pas les petits enfants dans les bras, je vous demande un test supplémentaire SVP.
Une fois les 4 étapes réalisées, pouvez-vous revenir directement en étape 2, 3 et 4 et capturer l'écran.
C'est pour voir si la réduction entre l'original (en fait la 1ère reconstitution) est à nouveau réduit ou s'il reste stable.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• Hier à 09:16

• #71

Avec ce fichier si possible où j'ai ajouté un tableau de différences final - initial.

Pour info chez moi.

 

Pièces jointes

• Redimensionner un UserForm sans le Caption TEST avec Window RECT.xlsm

  51.8 KB · Affichages: 4

Dernière édition: Hier à 09:23

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• Hier à 09:36

• #72

Dudu2 à dit:

Merci à vous 2.
C'est intéressant car @TooFatBoy qui a les coins carrés a le même phénomène que @ChTi160 qui a les coins ronds (je parle des UserForm bien sûr ). Donc ce n'est pas lié aux coins => 1 enseignement.
Entre l'original et le final reconstitué on perd 0.75 en Height et 0.15 en InsideHeight.
Ce n'est pas du tout le cas chez moi !
Par contre les Width et InsideWidth restent identiques dans tous les cas.

@TooFatBoy et @ChTi160 si tu n'as pas les petits enfants dans les bras, je vous demande un test supplémentaire SVP.
Une fois les 4 étapes réalisées, pouvez-vous revenir directement en étape 2, 3 et 4 et capturer l'écran.
C'est pour voir si la réduction entre l'original (en fait la 1ère reconstitution) est à nouveau réduit ou s'il reste stable.

Cliquez pour agrandir...

Bonjour tout le monde,

sur ma petite bécane, Windows7 64 bits, Excel 2010 32 bits


Bonne journée

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• Hier à 09:37

• #73

Bonjour @Dudu2
et chez moi


et si on capture au depart et à la fin

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• Hier à 09:58

• #74

Bonjour le Fil
Mon test
Jean marie

 

Pièces jointes

• Dudu-14.gif

  587.7 KB · Affichages: 8

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• Hier à 10:30

• #75

@ChTi160, ton test montre que la réduction ne s'accroit pas avec un nouveau cycle, ce qui est une bonne nouvelle. On va pas pleurer pour 0.75 point perdus en Height et 0.15 point dans l'InsideHeight et semble-t-il 0.30 point gagné en InsideWidth.

 

Dernière édition: Hier à 10:57

Vote positif 0 Vote négatif