Skal fange et billede vha makro

Jeg er lidt forvirret :-)
Hvad er det du vil fange ?

Kan du uddybe problemet lidt ?

Det er også dårligt formuleret...

Den skal overføre billedet i arket "testkal".. og overføre det til:
PR.Sheets(1).Range("I" & RK)

Er der kun et billede i arket "testkal" ?

ja...

Prøv med:

---------
TK.Sheets("testkal").Pictures(1).Copy
PR.Sheets(1).Paste Destination:=Range("I" & RK)
---------

Ok.. kan først lige tjekke det i morgen...

Den kopoierer denm fint over... synes bare ikke helt den bliver placeret det hvor jeg gerne vil. Den kommer i række I, men ikke helt vandret med den konkrete linie.

tk.Sheets("testkal").Pictures(1).Copy
pr.Sheets(1).Paste Destination:=Range("I" & Rk)
With pr.Sheets(1).Pictures(1)
    .Top = Range("I" & Rk).Top
    .Left = Range("I" & Rk).Left
End With
End Sub

Virker ikke bak...

sætter nogle billeder oven i hinanden...

Virker nu fint nok på et billede.
hvis du har flere skal du huske at ændre Picture(1) til Picture(2), picture(3) osv.
tk.Sheets("testkal").Pictures(1).Copy  kopierer 1. picture fra testkal

With pr.Sheets(1).Pictures(1)  flytter kun første picture på sheets(1)

ja... det er et billede på dette ark, men det ark den overfører til vil der på de foregående linier være billeder... og der går det galt.

Så mangler vi nok lige en select

tk.Sheets("testkal").Pictures(1).Select
tk.Sheets("kalk").Pictures(1).Copy
pr.Sheets(1).Paste
With Selection.ShapeRange
    .Top = pr.Sheets(1).Range("I" & rk).Top
    .Left = pr.Sheets(1).Range("I" & rk).Left
End With

Ja.. så virker det perfekt.. tak.. mangler svar.. bak

ok :-)