copying data as image

[Tony Miall]

evening all,

I have a range of data, A14:X67, and want to copy the range as an "image" then somehow attach to a cell with the ability to regenerate the image. I done few web searches and found similar type processes but not what I'm looking for. Appreciate anyone pointing me in the right direction.

Thanks

 

[RoryA]

Copy the range, then click the Paste dropdown and choose Paste Picture.

 

[Tony Miall]

Thanks Rory, but how do I attach to a cell?

I will be clearer.. I want to write a macro that attaches a picture of a group of cells into one cell with visible text such as "Smith", then the user selects the cell "Smith", runs the toggle macro and the picture is regenerated to the original size and then minimised again, I don't even know if this is possible??

 

[Sektor]

Change I7 and sheet name to appropriate.

Sub PasteAsImage()
    Range("A14:X67").Copy
    With Sheets(1)
        .Range("I7").Select
        .Pictures.Paste
    End With
End Sub

 

[Tony Miall]

Thanks Sektor,

This is all straight forward, what I'm trying to understand is if it's possible to attach the picture to the cell not just position it on the sheet

 

[Sektor]

Sub PasteAsImage()
    Range("A14:X67").Copy
    With Sheets(1)
        .Range("I7").Select
        .Pictures.Paste [B][COLOR="Red"]Link:=True[/COLOR][/B]
    End With
End Sub