Bonjour,
j'utilise présentement cette macro pour inserrer une image:
If Intersect(ActiveCell, Range("e3,g3,i3,k3,m3,o3,e8,g8,i8,k8,m8,o8,e13,g13,i13,k13,m13,o13,e18,g18,i18,k18,m18,o18,e23,g23,i23,k23,m23,o23")) Is Nothing Then Exit Sub
ActiveSheet.Pictures.Insert( _
"C:\users\TetuC793\Pictures\Bibliothèque multimédia Microsoft\MC900432586[2].png" _
).Select
Selection.ShapeRange.ScaleWidth 0.2, msoTrue
Selection.ShapeRange.ScaleHeight 0.2, msoTrue
Range("h1").Select
End Sub
L'image arrive dans le coin supérieur gauche.
Peut-on faire arriver l'image dans le coin supérieur droite?
Merci !!😎
j'utilise présentement cette macro pour inserrer une image:
If Intersect(ActiveCell, Range("e3,g3,i3,k3,m3,o3,e8,g8,i8,k8,m8,o8,e13,g13,i13,k13,m13,o13,e18,g18,i18,k18,m18,o18,e23,g23,i23,k23,m23,o23")) Is Nothing Then Exit Sub
ActiveSheet.Pictures.Insert( _
"C:\users\TetuC793\Pictures\Bibliothèque multimédia Microsoft\MC900432586[2].png" _
).Select
Selection.ShapeRange.ScaleWidth 0.2, msoTrue
Selection.ShapeRange.ScaleHeight 0.2, msoTrue
Range("h1").Select
End Sub
L'image arrive dans le coin supérieur gauche.
Peut-on faire arriver l'image dans le coin supérieur droite?
Merci !!😎