Discussion :

[cath2123]

* Bonjour, *

Je suis novice en excel et j aimerai savoir s il est possible, en vba , de mettre une image d un fichier jpg dans une cellule au lieu de mettre un texte (equivalent de range("A2").value mais pour une image)


Merci d avance
cath

[Marc-L]

Bonjour,

oui c'est possible !

Le faire manuellement en utilisant l'Enregistreur de macros, le code est livré sur un plateau !

[patricktoulon]

Bonjour marc L

l'enregistreur de macro n'enregistre pas les manipulations des shapes avec 2007

[Marc-L]

Effectivement, autant pour moi ! Encore une régression …

Voir alors du côté de Worksheets.Pictures.Insert({Fichier}) …

L'insertion s'effectue sur la cellule active mais se gère aussi via les propriétés de Shapes …

[boisgontierjacques]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub essai()
  répertoirePhoto = "c:\mesdoc\" ' Adapter
  nom = "droc"
  Set img = ActiveSheet.Pictures.Insert(répertoirePhoto & nom & ".jpg")
  img.Left = [B2].Left
  img.Top = [B2].Top
  img.Name = nom
End Sub

Jacques Boisgontier

[cath2123]

Merci beaucoup de votre aide, j affiche bien une image, maintenant il faut que je l adapte a la taille de la cellule
Merci encore