Bonjour à tous, est oui je suis un petit nouveau sur votre forum, et j'espère que nous allons pouvoir partager plein d'astuces.
J'ai récupéré ce code: Les Médias
Sub InserImage()
Dim nom$
Dim fichimg$
[C10].Select
With ActiveWindow
y = .Selection.Width
End With
On Error Resume Next
nom = Selection.Offset(0, -1).Value
fichimg = ActiveWorkbook.Path & "\" & nom & ".jpg"
ActiveSheet.Pictures.Insert(fichimg).Select
Selection.ShapeRange.Width = y
End Sub
Il est très intéressant car il permet de rajouter une image, dans une feuille Excel.
2 petits problèmes avec celui-ci
mon premier problème : je n'arrive pas à positionner l'image où je veux avec excel 2007 .
Mon deuxième problème: et de pouvoir supprimer une image après avoir intégré. en vba
Merci à vous si vous avez une petite idée.
J'ai récupéré ce code: Les Médias
Sub InserImage()
Dim nom$
Dim fichimg$
[C10].Select
With ActiveWindow
y = .Selection.Width
End With
On Error Resume Next
nom = Selection.Offset(0, -1).Value
fichimg = ActiveWorkbook.Path & "\" & nom & ".jpg"
ActiveSheet.Pictures.Insert(fichimg).Select
Selection.ShapeRange.Width = y
End Sub
Il est très intéressant car il permet de rajouter une image, dans une feuille Excel.
2 petits problèmes avec celui-ci
mon premier problème : je n'arrive pas à positionner l'image où je veux avec excel 2007 .
Mon deuxième problème: et de pouvoir supprimer une image après avoir intégré. en vba
Merci à vous si vous avez une petite idée.
