Hi there,

Currently, I am struggling with my script and can't seem to find an answer on the internet.
Here is the problem. I got to the point where the script is extracting a graph from the excel sheet and is pasting it into word.
But I want the graph to have a specific size in word. For example width: 25cm and height: 7.5cm
It's not important if the resizing takes place in excel before it becomes pasted or afterwards when the graph already is in word.
I would really appreciate any help on this, because I already tried a lot of combinations which don't seem to work. I'm using Office 2010.

Sub graphimporter()
Dim path As String
Dim filename As String
' Dim wrdApp As Word.Application
' Dim wrdDoc As Word.Document
path = "the location of the excel file"

Set wrdApp = GetObject(, "Word.Application")
Set xlapp = GetObject(, "Excel.Application")
xlapp.DisplayAlerts = False
xlapp.Visible = False
wrdDoc = wrdApp.Documents.Open(thewordfileIuse.docx")

Set xlsWbk = xlapp.Workbooks.Open(path & file)

xlsWbk.Sheets("Samengevat_per_dag").ChartObjects(1).Activate
xlsWbk.ActiveChart.ChartArea.Select
xlsWbk.Sheets("the specific sheet I need").ChartObjects(1).Activate
xlsWbk.ActiveChart.ChartArea.Select
xlsWbk.ActiveChart.ChartArea.Copy
With Selection
.Paste
End Sub