Forum Discussion

Dave_StewartUK's avatar
Dave_StewartUK
Copper Contributor
Aug 12, 2022
Solved

Help to automate a process

Hi,

 

Still learning with excel but I am hoping this is not too hard.  

 

I have a spreadsheet named PDF.

I want a macro to select range A1 to I26

copy as picture - as shown when printed

 

I can then just paste into a document as needed.

 

I tried to record a macro but it does not record me choosing "copy as picture>as shown when printed"

 

Anyone can help please?

 

 

  • Dave_StewartUK 

    Here is a small macro, untested..hope it will help you.

    Public Sub PicAreaCopy()
    Sheet1.Range("A1:H15").CopyPicture Appearance:=xlScreen, Format:=xlPicture
    With Sheet2
    .Paste .Range("A1")
    End With
    End Sub

     

    NikolinoDE

    I know I don't know anything (Socrates)

  • NikolinoDE's avatar
    NikolinoDE
    Gold Contributor

    Dave_StewartUK 

    Here is a small macro, untested..hope it will help you.

    Public Sub PicAreaCopy()
    Sheet1.Range("A1:H15").CopyPicture Appearance:=xlScreen, Format:=xlPicture
    With Sheet2
    .Paste .Range("A1")
    End With
    End Sub

     

    NikolinoDE

    I know I don't know anything (Socrates)

      • NikolinoDE's avatar
        NikolinoDE
        Gold Contributor
        I am glad that I could help

        I wish you continued success with Excel

Resources