extract graph excel to word in VBA (resizing)

**1990b** · 02-17-2014, 12:31 PM

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

**1990b** · 02-18-2014, 05:44 AM

After .Paste, I was thinking about something like:
With Selection
.InlineShape.height = 250
.InlineShape.width = 100
End With

It doesn't seem to work.

**1990b** · 02-18-2014, 06:42 AM

All right this seems to work now. After the graph is pasted into word it recognizes this as shape(1).
But I have a lot of graphs and I don't want to assign numbers to all these shapes. Is there a way to alter
the inlineshapes() somehow in order to only resize a shape to the one which is last pasted??

With ActiveDocument.InlineShapes(1)
.Width = CentimetersToPoints(25)
.Height = CentimetersToPoints(7.5)