Inserer image avec propriété move and size with cells

Bonjour

Je souhaiterais savoir s'il est possible d'inserer une image avec la propriete move and size with cells

Voici mon code pour l'instant

Sub insert_image_Story() 'Inserer l'image storyboard

Dim lepath As String, Limage As String
Dim NewImg As Object
Application.ScreenUpdating = False

lepath = Left(ActiveWorkbook.Path, InStrRev(ActiveWorkbook.Path, "\")) & "05_Storyboard\Screens\"
Limage = ActiveCell.Offset(-2, 1).Value

Set NewImg = ActiveSheet.Pictures.Insert(lepath & "Ecran_ (" & Limage & ").png")
With NewImg
    .ShapeRange.Left = ActiveCell.Left
   .ShapeRange.Top = ActiveCell.Top
   .Height = ActiveCell.Height
   .Width = 375

ActiveCell.Offset(0, 1).Select

End With
End Sub

Merci beaucoup pour votre aide

Bonjour

Regardes la propriété Placement

    With NewImg
      .ShapeRange.Left = ActiveCell.Left
      .ShapeRange.Top = ActiveCell.Top
      .Height = ActiveCell.Height
      .Width = 375
     .Placement = xlMoveAndSize

      ActiveCell.Offset(0, 1).Select
    End With
End Sub

Merci ca marche

Leger soucis : Au fur et a mesure que j'applique mon code, il y a un leger decallage qui se creer et s'agrandi.

Merci beaucoup

J'insere mon fichier egalement ici pour pouvoir chercher la cause de ce soucis

Merci

Bonjour,

Je travaille uniquement sur Excel 2007.

Les images continuent de se decaller tres legerement a chaque fois que je rentre le code dans un tableau.

With NewImg
    .ShapeRange.Left = ActiveCell.Left
    .ShapeRange.Top = ActiveCell.Top
    .Height = ActiveCell.Height
    .Width = 375
    .Placement = xlMoveAndSize

Y'a t'il quelque chose a essayer avec cette partie du code ? Je continue mes recherches dans mon coin mais toujours en vain.

Merci.

Apres un test sur un autre ordinateur, il s'agirait un soucis avec ma version d'excel

Fin de l'histoire.