1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
Sub insertPicture()
'Cet exmple fonctionne pour une image, mais vous pouvez l'adapter pour
'traiter plusieurs images
Dim myPath
On Error GoTo 0
'cette ligne peut varier pour traiter plusieurs images, moyennant une boucle
myPath = ThisWorkbook.Path & "\VotreImage.png" 'ou .jpg, ou autre
With Sheets("Edition étiquettes")
.Shapes.AddPicture Filename:=myPath, _
LinkToFile:=msoFalse, _
SaveWithDocument:=True, _
Left:=100, _
Top:=100, _
Width:=123, _
Height:=134
'les paramètres ci-dessus (Left, Top, ...) sont adaptables à votre situation
End With
End Sub |
Partager