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 11:01:05

Bonjour gmarin,

Non, pas la quadrature du cercle, la proportionnelle du rectangle

Tu as sûrement modifié l'origine Top, Left de l'image.
Juste sous la ligne indiqué dans le message précédent j'avais laissé un bloc Witth/End With.
Suffit d'y inclure les deux lignes suivantes, en gras :


      ' 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é : point.  J'ai mis 200 au pifomètre. Tu peux ajuster selon ta préférence.
       
      End With

Sans modifier les paramètres lngL et lngH. Ainsi toutes les images auront 200 points de hauteur et une largeur proportionnelle.

Finalement je n'avais pas besoin de réchiflir bien longtemps. La paresse sans doute.

Cordialement,

Guy