Discussion :

[alex_95]

Bonjour,

Je cherche a afficher une image sur une feuille de classeur.

Faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

activesheet.shapes("image"&page).select

fonctionne sans pb mais lorsque je veux changer la photo ca ne marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

activesheet.shapes("image"&page).picture=loadpicture(repertoire_source &"\plat.jpg"')

Qqn à une idée ???

Mercid 'avance

[SilkyRoad]

bonjour

Tu ne précises pas comme l'image est insérée à l'origine?
Il s'agit d'un contrôle Image (issu de la boîte à outils contrôles) ou d'un ajout type Menu/Insertion/Image


Si tu utilises un contrôle image:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Obj As OLEObject
 
Set Obj = ActiveSheet.OLEObjects("Image" & Page)
Obj.Object.Picture = LoadPicture(repertoire_source & "\plat.jpg")

michel