Скопируйте таблицу 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