Rapport de message :*
 

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