Positionner une image dans une Cellule en haut à droite
Bonsoir à tous,
Je n'arrive pas à positionner mon image dans une Cellule en haut à droite !
Pour la positionnée à gauche pas de soucis
Code:
1 2 3 4 5 6 7 8 9
| Fichier = (répertoirePhoto & "\IMAGES\" & "Li" & A & ".JPG")
Set objImg = ActiveSheet.Pictures.Insert(Fichier)
Set Emplacement = Feuil5.Range("B1")
Set objImg = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)
With objImg.ShapeRange
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
End With |
Penser comme je l'ai fait remplacer Left par Right, vous mènera comme moi à venir poser la question lol :weird:
Merci par avance pour vos aides