OVH Cloud OVH Cloud

image et VBA

1 réponse
Avatar
rob
Salut tout le monde,

J'ai une image dans un fichier Excel et j'aimerais en changer la
source par du VBA .... est-il possible de faire ca ? faut il passer
par une activex ?

Merci
++

1 réponse

Avatar
LSteph
Bonjour,
Avec VBA il te faudra monter un Useform pour choisir un chemin fichier
et insérer l'image à la place de l'image
En utilisant le menu insérer une image, tu ira aussi vite .

Sinon ce code exemple remplace le premier objet image de la feuille
par celle choisie 'ici la photo.jpg' :
'*****
Sub RplcImg()
Dim posLeft As String
Dim posTop As String


ActiveSheet.Shapes(1).Select
posLeft = Selection.ShapeRange.Left
posTop = Selection.ShapeRange.Top
Selection.Delete
ActiveSheet.Pictures.Insert( _
"C:MoncheminMondossierLaphoto.JPG").Select
Selection.ShapeRange.Left = posLeft
Selection.ShapeRange.Top = posTop

End Sub
'*****

'Cordialement

'lSteph
"rob" a écrit dans le message de news:
4218fe1b$0$6590$
Salut tout le monde,

J'ai une image dans un fichier Excel et j'aimerais en changer la
source par du VBA .... est-il possible de faire ca ? faut il passer
par une activex ?

Merci
++