Copier uniquement les images

[RMYX]

Hello,

je souhaiterais faire une macro qui me permettrait de copier toutes les images (et uniquement les images car j'ai aussi des checkbox et boutons) d'une feuille pour les copier dans une autre.

La difficulté pour moi vient du fait que les n° d'index des images insérées sont à chaque fois différents. Je pensais qu'un truc de ce style là passerait:

"pictures".select.all
copy
paste

mais pas vraiment en fait (surement trop simple).

Merci pour le coup de pouce

 

[Jef]

Salut RMYX,
Voila je te propose cette petite macro :
elle copie les images de la feuille 1 pour les coler dans la feuille 2
une a une malheureusement ! j'ai pas mieux
Il y a peut etre moyen de faire mieux avec for each mais j'ai pas reussi...

Sub copy_img()
nb_obj = Sheets("feuil1").Shapes.Count ' Compte les objets dans la feuille1
For i = 1 To nb_obj
TypeShape = Sheets("feuil1").Shapes.Item(i).Type 'Recupere le type de l'objet
If TypeShape = msoPicture Then 'Si l'objet est une image
Sheets("feuil1").Shapes.Item(i).Copy
Sheets("feuil2").Paste
End If
Next i
End Sub

en esperant que cela puisse t'aider
a+ sur le forum

Jef

 

[Jef]

Re-salut,

Bin si j'ai reussi ...

Sub copy_img2()
Dim Img As Shape
For Each Img In Shapes
If Img.Type = msoPicture Then
Img.Copy
Exit For
End If
Next
Sheets("feuil2").Paste

End Sub


Ca racourci drolement le code n'est ce pas ?

Jef

 

[RMYX]

Salut Jef,

merci pour le code ça me "sauve la vie". A charge de revanche (quoiqu'il semble que tu maitrises bp mieux que moi).

A plus