copy specific range and paste as pic to another sheet

????706 · May 20th 2018

i have some sheets and produce some reports in each page.i want a code to use for each page reports and paste them as picture in the last sheets.
Is there anyway using vba code that copy specific range " C30:j33" and turn them into image in another sheet "A1:H4" ???

**alansidman** · May 20th 2018

Try this:

Code

Option Explicit


Sub cpyPstPic()
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
    s1.Range("C30:J33").CopyPicture Appearance:=xlScreen, Format:=xlPicture
    s2.Range("A1").PasteSpecial
End Sub

????706 · May 22nd 2018

thanks, it works very well.is it possible before pasting the picture remove previous one?

**alansidman** · May 22nd 2018

Sure. Highlight it with your cursor and click on the delete key.

copy specific range and paste as pic to another sheet

Participate now!

Share