Redimensionner un gif dans userform

Bonjour à tous

Je sollicite votre aide car je n'arrive pas à faire qu'un gif s'adapte (en taille) à la zone dédiée au webrowser.

Sauriez vous comment faire pour que la taille d'affichage de mon gif corresponde à la taille de la fenêtre du webrowser?

Voici mon code qui lance mon gif:

Private Sub UserForm_Initialize()

    WebBrowser1.Navigate "C:\Users\ced_le_dingue\Desktop\courbe.gif"

End Sub

Merci beaucoup,

Ced

Bonjour toutes et tous,

peut être à l'initialise de ton Userform, la Hauteur(Height) et la Largeur(Width) de ton WebBrowser1

...
Dim Hauteur, Largeur As Long ' déclaration des 2 variables  Hauteur et largeur
Largeur = WebBrowser1.Width * 126 / 102
Hauteur = WebBrowser1.Height * 126 / 102
...

crdlt,

André

Bonjour André, bonjour à tous,

Merci pour ta réponse. Cependant, cela ne modifie que la taille de la zone dédiée au webrowser et n'adapte pas la taille de l'image à la taille du webrowser... Ce qu'il faudrait (je suppose) c'est une sorte d'Image.Stretch... sauf que c'est pour un gif là....

Mais pas de soucis je viens de trouver une autre solution: j'ai redimensionné le gif en ligne sur internet, pour qu'il ne soit pas trop grand dans mon userform... je perds en qualité mais bon tant pis

Par contre sauriez vous comment enlever la barre de défilement sur le coté? :

Ced