Bonjour, voici ce que j'ai trouv=E9 comme code pour ins=E9rer une image
dans un range pr=E9cis, mais comment fait-on si l'image que nous
disposons est d=E9j=E0 sur la feuille excel ? Merci
Sub TestInsertPictureInrange()
InsertPictureInrange "C:\FolderName\PictureFileName.gif",
range("B5:D10")
End Sub
Sub InsertPictureInrange(PictureFileName As String, TargetCells As
range)
' inserts a picture and resizes it to fit the TargetCells range
Dim p As Object, t As double, l As double, w As double, h As double
If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
If Dir(PictureFileName) =3D "" Then Exit Sub
' import picture
set p =3D ActiveSheet.Pictures.Insert(PictureFileName)
' determine positions
With TargetCells
t =3D .Top
l =3D .Left
w =3D .Offset(0, .Columns.Count).Left - .Left
h =3D .Offset(.rows.Count, 0).Top - .Top
End With
' position picture
With p
.Top =3D t
.Left =3D l
.Width =3D w
.Height =3D h
End With
set p =3D Nothing
End Sub
