ZOOM Image USF en "Application.Width et .Height" suivant résolution.

[IFFIC]

Bonsoir à ceux qui passeront par là..

A l'ouverture de l'USF, je le dimensionne par:

Private Sub UserForm_Initialize()
UserForm1.Width = Application.Width
UserForm1.Height = Application.Height

Je bidouille en 1280 x 1024, mais pour l'utilisateur presbyte
qui navigue en 1024 x 768 (Par exemple) ; j'utilise:
UserForm1.Zoom = 75

Là, la mise en page est relativement correcte…. Humm!!!

Sauf que mon Image de fond ne suit pas, même en "Zoom", "stretch" ou "Clip"
Elle ne rempli pas l'USF.

J'ai testé avec des Images de plusieurs formats…Rien à faire!

Si une bonne âme à une solution,

Merci d'avance, et bonne soirée à tous.

IFFIC

 

[Kobaya]

Re : ZOOM Image USF en "Application.Width et .Height" suivant résolution.

saluit iffic,

poste ton fichier, on pourra nous aussi faire des tests !

 

[IFFIC]

Re : ZOOM Image USF en "Application.Width et .Height" suivant résolution.

saluit iffic,

poste ton fichier, on pourra nous aussi faire des tests !

Bonsoir KOBAYA

Ci-joint un petit montage.

Merci de m'avoir lu et répondu.

Bonne soirée, et merci d'avance, si tu as une idée.

IFFIC

 

[IFFIC]

Re : ZOOM Image USF en "Application.Width et .Height" suivant résolution.

Ben alors, il était trop gros !!!

 

[Kobaya]

Re : ZOOM Image USF en "Application.Width et .Height" suivant résolution.

ben, ça a l'air de fonctionner parfaitement ce code !
j'ai testé avec plusieurs résolutions : de 1024x768 à 2048x1536, et à chaque fois, le userform semblait occuper tout l'écran. seuls les boutons étaient décalés, mais c'est normal puisqu'ils n'étaient pas placés par rapportà la taille de l'écran mais par rapport aux coordonnées 0,0 de l'écran.

j'ai loupé quelquechose ?