如何更改 objWord 页面方向从 Excel VBA

Question

我正在做一个项目，我是运行一份报告，当工作完成后，我想 Excel 到 select 并复制一个范围，然后作为图片粘贴到新的 Word 文档。

由于图像尺寸对于纵向方向来说比较大，我希望Word 将其更改为横向模式。这就是我的问题。有人可以帮忙吗？

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

如果不引用 Word 对象库，常量 wdOrientLandscape 在 Excel VBA 中将没有值，因此：

添加 Word 引用
在 Excel VBA
或替换为数值（在本例中为 1）。

如何更改 objWord 页面方向从 Excel VBA

How can I change objWord Page Orientation from Excel VBA

excel

vba

ms-word