Comment centrer une image dans une cellule?

Bonjour à tous,

Dans une boucle qui récupère un nom de fichier d'image dans une liste je cherche à insérer, cellule après cellule, l'image correspondante.
Le problème, c'est que l'image s'insère dans le coin supérieur gauche, et que je souhaite que l'image soit centrée dans la cellule.
J'imagine que c'est très simple, mais je ne sais pas comment faire.

Un petit coup de main, s'il vous plaît?

Merci beaucoup!

BTB

Bonjour,

Exemple (à adapter) pour placer l'image 1 au centre de la cellule A1

Code:

---

1 2 3 4

With Sheets(1).Shapes("Image 1") .Left = Range("A1").Left + (Range("A1").Width / 2) - (.Width / 2) .Top = Range("A1").Top + (Range("A1").Height / 2) - (.Height / 2) End With

---

Bonjour Fring, et merci pour ta réponse.

Par contre j'ai un doute sur l'appel de l'image, avec le code que j'ai fait:

Code:

---

1 2 3 4 5 6 7

Fichier = sPath & oRst("LIST") & ".JPG" xlSheet.Pictures.Insert Fichier With xlSheet.Shapes("Image 1") .Left = ActiveCell.Left + (ActiveCell.Width / 2) - (.Width / 2) .Top = ActiveCell.Top + (ActiveCell.Height / 2) - (.Height / 2) End With

---

Dois-je importer l'image d'une autre manière, pour pouvoir donner à l'image un nom et ainsi permettre que xlSheet.Shapes puisse l'appeler?

Avec tes autres variables, tu déclares une variable de type Objet

Code:

---

Dim oImg As Object

---

Et ensuite tu peux faire comme ceci

Code:

---

1 2 3 4

Fichier = sPath & oRst("LIST") & ".JPG" Set oImg = xlSheet.Pictures.Insert(Fichier) oImg.Left = ActiveCell.Left + (ActiveCell.Width / 2) - (oImg.Width / 2) oImg.Top = ActiveCell.Top + (ActiveCell.Height / 2) - (oImg.Height / 2)

---

Merci, c'est parfait! :ccool:

11 ans après, le code marche toujours !

Merciiiiiiiiiiiiiiiiiiiiiiii.......

Désolé pour le déterrage, mais j'ai l'âme d'un archéologue....

Tiens je ne savais pas que nous étions en 2023 :ptdr::ptdr::ptdr::ptdr::ptdr::ptdr: