Kopierer billede vha. makro

Jeg vil mene at du blot kan indspille makroen ved at indsætte dine billeder i et ark (billedarkiv) og så klikke på det billed du vil kopiere vælge arket det skal sættes ind i og så blot sætte det ind.

Jeg har selv testet det på et billede og den makro kom til at se således ud:

Sub Makro1()
    Sheets("Billedearkiv").Select
    ActiveSheet.Shapes("Picture 1").Select
    Selection.Copy
    Sheets("Ark1").Select
    ActiveSheet.Paste
End Sub

Tak ... post du bare et svar ... eller to ...

Det var så lidt ;-)