How can I change objWord Page Orientation from Excel VBA

Question

I'm working on a project were I run a report and when the work is done I want Excel to select and copy a range then paste as picture in a new Word document.

As the size of the image is relatively big for a portrait orientation, I want Word to change it to Landscape mode. And that's my problem. Can someone help?

Sub PasteAsPicture()
    Dim objWord, objDoc As Object
    
    With Workbooks("Workbook Name").Sheets("Sheet Name")
        .Range("A1:S40").CopyPicture Appearance:=xlScreen, Format:=xlPicture
    End With
    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Add
    With objWord
        .Visible = True
        .ActiveDocument.PageSetup.Orientation = wdOrientLandscape
        .Selection.Paste
        .Selection.TypeParagraph
    End With
End Sub

Answer 1

Without a reference to the Word object library, the constant wdOrientLandscape will have no value in Excel VBA, so either:

• add the Word reference
• define the constant in your Excel VBA
• or substitute the numeric value (1 in this case).