Discussion :

[BornToBe]

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

[fring]

Bonjour,

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

Code :

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

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

[BornToBe]

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 :

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

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?

[fring]

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

Code :

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

Dim oImg As Object

Et ensuite tu peux faire comme ceci

Code :

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

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)

[BornToBe]

Merci, c'est parfait!

[Marc Des Vosges]

11 ans après, le code marche toujours !

Merciiiiiiiiiiiiiiiiiiiiiiii.......

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

[cerede2000]

Tiens je ne savais pas que nous étions en 2023