Redimensionner et centrer la photo à l'intérieur de la cellule

Bonjour le forum,

Pourriez vous m'aider en corrigeant le code ( erreur variable du bloc with non définie) du module 1 pour que l'image soit dimensionnée hxl =1.6x1.6 puis centrée dans une cellule hxl =2x2 de J

Bonjour,

Alors pour commencer, il ne faut surtout pas utiliser l'instruction

  Set Img = ws.Pictures.Insert(imgPath)

Sinon, pour quelqu'un qui a un autre PC, voici ce qu'il a

Il faut mieux utiliser

Sub AjoutImageFeuille()
    Dim Shp As Shape
    Dim Fichier As String

    Fichier = "C:\Temp\Image2.jpg"
    ' Utilisation AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
    Set Shp = Feuil1.Shapes.AddPicture(Fichier, msoFalse, msoCTrue, 0, 0, 100, 90)
End Sub

A+