image sous excel

bonjour


en mode groupe de travail (multi-séletion de feuilles), on ne peut copier images et boutons, voilà pourquoi je viens de créer une macro

cette macro copie l'image "Image 1" de la feuille active sur les autres feuilles.

Sub jdf()
Set actSh = ActiveSheet
Set actIm = actSh.Shapes("Image 1"): actIm.Copy
For Each Sh In Sheets
If Sh.Name <> actSh.Name Then Sh.Activate: Sh.Cells(1, 1).Select: Sh.Paste
Next Sh
End Sub

si vous connaissez des astuces manuelles, on est preneur.

bye
stéphane

Voici une macro vite faite qui semble réaliser cela correctement. pour l'utiliser, tu copies l'image dans le presse-papier, tu sélectionnes les feuilles de destination et la cellule où doit se faire la copie, puis tu appelles la macro

Sub PasteImageMultiple()
Dim Ws As Worksheet, Feuilles
Dim Plage As Range
Set Plage = Selection
Set Feuilles = ActiveWorkbook.Windows(ActiveWindow.Index). _
SelectedSheets
For Each Ws In Feuilles
Ws.Select
Range(Plage.Address).Select
ActiveSheet.Paste
Next Ws
End Sub

Hello,

dans un registre un peu différent, je souhaiterais faire une macro qui me permettrait de copier toutes les images (et uniquement les images) 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.