J'ai cree des userforms avec une reolution d'ecran de=20
1024x768 et je voudrais pourvoir affich=E9 ceux-ci suivant=20
la definition d'ecran qui est configur=E9 sous windows. Je=20
desirerai que ces userforms soit reduit ou agrandi=20
automatiquement.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Pierron
Bonjour Pierre; Quelque chose de simple comme: Private Sub UserForm_Initialize() Dim W As Double ' 1024 pixels = 768 points W = Application.UsableWidth / 768 Me.Zoom = CInt(W * 100) Me.Width = Me.Width * W Me.Height = Me.Height * W End Sub
MP
"Pierre" a écrit dans le message de news:5ea201c4926e$eb04e180$ Bonjour à tous
J'ai cree des userforms avec une reolution d'ecran de 1024x768 et je voudrais pourvoir affiché ceux-ci suivant la definition d'ecran qui est configuré sous windows. Je desirerai que ces userforms soit reduit ou agrandi automatiquement.
Merci par avance pour vos reponses Pierre
Bonjour Pierre;
Quelque chose de simple comme:
Private Sub UserForm_Initialize()
Dim W As Double
' 1024 pixels = 768 points
W = Application.UsableWidth / 768
Me.Zoom = CInt(W * 100)
Me.Width = Me.Width * W
Me.Height = Me.Height * W
End Sub
MP
"Pierre" <bpeyot@wanadoo.fr> a écrit dans le message de
news:5ea201c4926e$eb04e180$a501280a@phx.gbl...
Bonjour à tous
J'ai cree des userforms avec une reolution d'ecran de
1024x768 et je voudrais pourvoir affiché ceux-ci suivant
la definition d'ecran qui est configuré sous windows. Je
desirerai que ces userforms soit reduit ou agrandi
automatiquement.
Bonjour Pierre; Quelque chose de simple comme: Private Sub UserForm_Initialize() Dim W As Double ' 1024 pixels = 768 points W = Application.UsableWidth / 768 Me.Zoom = CInt(W * 100) Me.Width = Me.Width * W Me.Height = Me.Height * W End Sub
MP
"Pierre" a écrit dans le message de news:5ea201c4926e$eb04e180$ Bonjour à tous
J'ai cree des userforms avec une reolution d'ecran de 1024x768 et je voudrais pourvoir affiché ceux-ci suivant la definition d'ecran qui est configuré sous windows. Je desirerai que ces userforms soit reduit ou agrandi automatiquement.
