Re: Créer et Utiliser des listes de choix successives |
Titre du sujet : Re: Créer et Utiliser des listes de choix successives par Guy le 14/10/2009 19:23:11 Bonjour, Si tu n'utilises pas d'URL il ne faut plus utiliser la fonction TelechargerImage() telle qu'elle apparaît dans le code. Remplacer la portion de code suivante : If TelechargerImage(strURL, DossierTempo & "Image." & strExt, lngH, lngL) Then On Error Resume Next shaImage.Delete On Error GoTo 0 ' Modifier les paramètre Top, Left, Height et Width au besoin. Set shaImage = Feuil2.Shapes.AddPicture(DossierTempo & "Image." & strExt, msoTrue, msoFalse, 10, 10, lngL, lngH) With shaImage .LockAspectRatio = msoTrue ' Assure une taille proportionnelle .Height = 200 ' Unités : point. J'ai mis 200 au pifomètre. Tu peux ajuster selon ta préférence. End With End If Par : Dim picImage As StdPicture On Error Resume Next shaImage.Delete ' Pour se débarasser de l'image précédente On Error GoTo 0 Set picImage = LoadPicture("C:\MonDossier\Images\MonImage.xxx") lngH = picImage.Height/100 lngL = picImage.Width/100 ' Et la suite est identique sauf pour la provenance de l'image. Sur le disque cette fois. Set shaImage = Feuil2.Shapes.AddPicture("C:\MonDossier\Images\MonImage.xxx", msoTrue, msoFalse, 10, 10, lngL, lngH) With shaImage .LockAspectRatio = msoTrue ' Assure une taille proportionnelle .Height = 200 ' Unités : point. J'ai mis 200 au pifomètre. Tu peux ajuster selon ta préférence. End With S'il y a embrouille, renvoie en téléchargement le fichier sur lequel tu travailles et on verra. Cordialement, Guy |
Forums