Copy sheets as image to word

I tried copying a sheet as an image to word and it worked using VBA. But I wanted to copy the entire workbook or sheets with a given range . Please someone help

Sub luxation ()

Dim objWord, objDoc As Object

Activewindow.view=xlNormalView

Range(“B2:S73”).select

Selection.copy picture Appearance:=xlscreen, Format:=xlPicture

Set objWord = createObject(“Word.Application”)

Set objDoc = objWord.Documents.Add

ObjWord.Visible = True

ObjWord.Selection.Paste

objWord.selection.type paragraph

End Sub

 

By: Toba Goodluck

Leave a Reply

Your email address will not be published. Required fields are marked *