Copying as Picture Link - using Macro

K

Kamal

I am preparing a report using macro . I want to copy that one page report to
a new file as a picture link.

Can some one help me in writing a macro to copy - say range A1 : T50 - from
one file and paste it to a new file as picture link?

Thanks
 
R

Ron de Bruin

Try this Kamal

Dim wb As Workbook
Range("A1:T50").Copy
Set wb = Workbooks.Add(1)
wb.Sheets(1).Pictures.Paste(Link:=True).Select
Application.CutCopyMode = False
 
J

JustinLabenne

Like this:

Option Explicit

Sub PastPicLink()
Range("A1:T50").Copy
ActiveSheet.Pictures.Paste(Link:=True).Select
Application.CutCopyMode = False
End Sub

I don't know what you mean by copying it to a new file, an Excel file?
 
Top