OVH Cloud OVH Cloud

Probleme de syntaxe

1 réponse
Avatar
Olivier
Bonsoir,
j'ai dans une feuille excel 50 images nommés image1 à image 50.
Je veux les remplir avec une image à l'aide d'une macro du style
For i = 1 To 50
Feuil1.Image.Picture = LoadPicture("C:\toto.jpg")
next i
Mais je ne sais quoi mettre à la place de image pour faire défiler les 50
image1 à image50.
J'aurai bien vu un truc du style Feuil1.Image(i).Picture =
LoadPicture("C:\toto.jpg") ou Feuil1.Image&i.Picture =
LoadPicture("C:\toto.jpg") mais cela ne marche pas.
En visual basic, je sais que j'aurais pu creer mes images avec un index et
les nommer image(i) avec i allant de 1 à 50. Mais avec Excel je ne sais pas
faire. Si quelqu'un a une idée....
Merci
Olivier

1 réponse

Avatar
Laurent Longre
Hello,

For I = 1 To 50
Feuil1.OLEObjects("Image" & I).Object.Picture = LoadPicture("C:toto.jpg")
Next I

Laurent

Bonsoir,
j'ai dans une feuille excel 50 images nommés image1 à image 50.
Je veux les remplir avec une image à l'aide d'une macro du style
For i = 1 To 50
Feuil1.Image.Picture = LoadPicture("C:toto.jpg")
next i
Mais je ne sais quoi mettre à la place de image pour faire défiler les 50
image1 à image50.
J'aurai bien vu un truc du style Feuil1.Image(i).Picture > LoadPicture("C:toto.jpg") ou Feuil1.Image&i.Picture > LoadPicture("C:toto.jpg") mais cela ne marche pas.
En visual basic, je sais que j'aurais pu creer mes images avec un index et
les nommer image(i) avec i allant de 1 à 50. Mais avec Excel je ne sais pas
faire. Si quelqu'un a une idée....
Merci
Olivier