将Excel图表复制到Word文档大小调整中

Question

我正在尝试制作一个带有“生成报告”按钮的excel工作表，单击该按钮时会打开一个文档，并基于excel工作表编写报告。除了将图表粘贴到Word文档中之外，其他所有方面对我都有利。每次我使用VBA将其粘贴到单词中时，大小调整都是不可用的，例如：

我希望它看起来像这样：

我的代码是：

'Charts
Worksheets("Input").ChartObjects("Chart_Antenna").Chart.ChartArea.Copy

With wordapp
.activedocument.bookmarks("Chart").Select
.Selection.PasteSpecial Link:=False, _
DataType:=PasteJPEGFilePicture, _
Placement:=Tight
DisplayAsIcon = False
End With

Answer 1

我不知道您为PasteJPEGFilePicture和Tight分配了什么。如果您以内联方式粘贴为位图，则其大小将根据页面宽度而定。

如果要使用对Microsoft Word x.x. Object Library的引用进行早期绑定，则可以使用Word.Range和ENUM值wd...。

Dim r As Object              ' Word.Range
With wordapp
    Set r = .ActiveDocument.Bookmarks("Chart").Range
    r.Collapse 1             ' 1 = wdCollapseStart, 0 = wdCollapseEnd
    r.PasteSpecial _
        Link:=False, _
        DataType:=4, _
        Placement:=0, _
        DisplayAsIcon:=False ' 1st 4 = wdPasteBitmap, 2nd 0 = wdInLine
End With