Overnemen afbeelding naar ander tab blad

[antonkarin]

LS

Is er een manier om een afbeelding die op "tab blad 1" staat over te nemen naar "tab blad 2"
Een verwijzing naar de cel werkt namelijk niet

In bijgevoegde file staat op tab blad "data" in cel C25 een afbeelding die ik graag naar een cel op "tabblad"rapport kopieer zodat ik daar een mooi printrapport van kan maken.

Alvast bedankt

AntonBekijk bijlage Afbeeldingovernemen.xlsx

 

[route99]

Met een macro net als hier?
https://www.mrexcel.com/forum/excel...e-image-one-worksheet-another.html#post224050

 

[edmoor]

Die kan je ook gewoon kopiëren en plakken.

 

[route99]

Wellicht wil ie het automatiseren... maar dat moet ie zelf weten...
Bij paste special kun je geen link kiezen, die is greyed out...dus die optie is er niet.
Als je een cel copied kun je dat nl wel...want hij schreef ook..

Een verwijzing naar de cel werkt namelijk niet

Zo heb ik het herleid.....

 

[antonkarin]

Bedankt en hier een link voor macro naar 2016

Ik was inderdaad op zoek naar een automatische herkenning van afbeelding.
De macro taal zegt mij niks maar aan de hand van deze tip ben ik op zoek gegaan naar een Excel 2016 versie
En dit is hem geworden

Sub CopyPict()
Sheets("Sheet1").Select
Range("B3:F7").Select
Selection.Copy
Sheets("Sheet3").Select
Range("H8").Select
ActiveSheet.Paste
End Sub

Bedankt voor snelle reactie

 

[route99]

:thumb:
Graag gedaan en succes verder!

 

[HSV]

[COLOR=#333333]Sub CopyPict()[/COLOR]
[COLOR=#333333]Sheets("Sheet1").[/COLOR][COLOR=#333333]Range("B3:F7").[/COLOR][COLOR=#333333]Copy [/COLOR][COLOR=#333333]Sheets("Sheet3").[/COLOR][COLOR=#333333]Range("H8")[/COLOR]
[COLOR=#333333]End Sub

[/COLOR]

Met de plaatjes op de juiste plaats.

Sub [COLOR=#333333]CopyPict()[/COLOR]
 Sheets("Sheet1").Range("B3:F30").Copy Sheets("Sheet3").Range("H8")
 Sheets("Sheet3").Range("H8").pastespecial xlpastecolumnwidths
End Sub