Image JPG dans une feuille de calcul

[emmygregg]

Bonjour à toutes et tous,

Est-il possible d'insérer une image .jpg dans une cellule d'une feuille de calcul Excel 2000 ?

Merci d'avance pour vos réponses.

 

[Jam]

Salut emmygregg,

essaie ce bout de code de Maître Walkenbach:

Sub InsertPicture()
'J Walkenbach, mpep
Dim MyCell As Range
Dim MyPicture As Picture
Dim image$
  
  image = 'c:\\windows\\hlpglobe.gif'
  Set MyCell = ActiveCell
  MyCell.Select
  Set MyPicture = ActiveSheet.Pictures.Insert(image)
  With MyPicture.ShapeRange
    .LockAspectRatio = msoFalse
    .Height = MyCell.Height
    .Width = MyCell.Width
  End With
  MyCell.Select
End Sub

Modifie le chemin de l'image pour que cela convienne à ton problème.

Bon courage

 

[emmygregg]

Bonjour Jam,

Désolé pour le retard mis à te répondre.

Je t'avoue que je n'ai pas la moindre idée de ce qu'il faut faire avec ce code.

Merci cependant pour ton aide et peut-être à plus tard.

Emmygregg.

 

[Emmygregg]

Bonjour Jam

C'était tout simple...

Affichage > Barre d'outils 'Image'
Bouton ' Insérer une image depuis un fichier '.

A +

Emmygregg