Insérer une image Web dans un userform

Bonjour tout le monde,

je sais que le sujet a été abordée plusieurs fois mais je cherche le moyen le plus simple pour insérer une image web dans un contrôle image de mon Useform lorsque j'active ce dernier.

par exemple avec cette carte météo :

j'imagine qu'il faut une instruction pour adapter la taille de l'image à celle du contrôle image ?

Merci d'avance pour vos retours,

Alci

Excel 2016

28test-copie.xlsm (14.13 Ko)

Quelqu'un aurait une idée svp ??

J'aurais aimé l’implémenter demain matin si possible

Bonjour,

Dans ma recherche de solutions, je suis tombé sur ce code mais j'ai des erreurs de syntaxe sur les lignes en gras apparemment.

Quelqu'un aurait une idée SVP ?

merci

Sub fichierIMage(url As String, ctrl As Object)

Dim ReQ As Object, oStream As Object

On Error Resume Next 'On ne gère pas les erreurs

Set ReQ = CreateObject("Microsoft.XMLHTTP"<img src="images/smilies/icon_wink.gif" border="0" alt="" title=";)" class="inlineimg" />

ReQ.Open "get", url, False

ReQ.send

Set oStream = CreateObject("ADODB.Stream"<img src="images/smilies/icon_wink.gif" border="0" alt="" title=";)" class="inlineimg" />

oStream.Open

oStream.Type = 1

oStream.Write ReQ.responsebody

oStream.SaveToFile ThisWorkbook.Path & "\imagetemp.jpg"

oStream.Close

ctrl.Picture = LoadPicture(ThisWorkbook.Path & "\imagetemp.jpg"<img src="images/smilies/icon_wink.gif" border="0" alt="" title=";)" class="inlineimg" />

End Sub

Bonjour,

Voici comment je ferai :

* Ici dans la démo une adresse Url d'une image (valide) en A1

* Avant de télécharger l'image : un test pour vérifier si cette image n'est pas déjà téléchargée (ça ne sert à rien d'interroger un serveur 2 fois pur la même chose)

* Une fois l'image téléchargée, il suffit de la placer dans le contrôle image dont la propriété PictureSizeMode est à machin_ZOOM

Rq : si c'est toujours une image de même taille ou très similaire ça suffit.

Nb : la fonction de téléchargement du jpg utilisée ici est inspirée d'un code de Arkham (cf référence dans le code)

Pierre

Merci beaucoup Pierre !!!

Rechercher des sujets similaires à "inserer image web userform"