Re : Boucle sur Colonne pour Insertion photo
bonjour à tous, j'ai un peu un soucis similaire, à savoir des photos à inserer en automatique, en fonction du contenu d'une cellule ...
Je suis pas du tout expert sur exel, et je comprends pas bien la macro, qui chez moi ne fonctionne pas ....
Sub Insert_image()
Dim répertoirePhoto
Dim Cel, Nom
répertoirePhoto = ThisWorkbook.Path & "\Photo\" ' Adapter
With ActiveSheet
For Each Cel In .Range("i3:i" & Rows.Count).SpecialCells(xlCellTypeConstants)
Nom = Cel.Offset(0, 7)
.Pictures.Insert(répertoirePhoto & Nom).Name = Nom
.Shapes(Nom).Left = Cel.Offset(0, -1).Left
.Shapes(Nom).Top = Cel.Offset(0, -1).Top
.Shapes(Nom).LockAspectRatio = msoFalse
.Shapes(Nom).Height = Cel.Offset(0, -1).Height
.Shapes(Nom).Width = Cel.Offset(0, -1).Width
Next
End With
End Sub
Les noms sont dans les cellules de i3 à i300, et j'ai également créé un repertoire photo, dans le répertoire de travail.
Les photos sont en jpg, mes cellules ne sont pas nommées ...
je vois pas où dire que mes photos sont en jpg, ou c'est directement pris comme ça .... ??????