Incrémentation de Picture

[malabarbe]

Bonjour,

Grace au forum, ma macro pour redimentionner un image
tourne impec !

Un petit soucis, c'est quand j'ai fait un couper coller de
l'image dans une autre feuille, après, je retourne dans la
feuille qui contient la macro ensuite j'insert une autre
image, et la, quand je lance la macro j'ai une erreur car
l'instruction :
ActiveSheet.Shapes("Picture 1").Select
le nom de l'image est passé à Picture 2

Comment incrémenter le Picture ou
comment effacer l'historique des images chargées ?

Merci de votre aide

 

[Pierrot93]

Re : Incrémentation de Picture

Bonsoir Malabarbe

si à chaque tu n'as qu'une seule image sur ta feuille, tu peux remplacer :

ActiveSheet.Shapes("Picture 1").Select

par :

ActiveSheet.Shapes(1).Select

bonne soirée
@+