Pasting Excel To Word and resizing

[MTBer]

I'm pasting ranges and charts to a word document using these lines

'goto Bookmark
WDApp.Selection.Goto What:=wdGoToBookmark, Name:=toBookM
' Paste the range
WDApp.Selection.PasteSpecial Link:=False
DataType:=wdPasteMetafilePicture, _
Placement:=wdInLine, DisplayAsIcon:=False

or

'goto Bookmark
WDApp.Selection.Goto What:=wdGoToBookmark, Name:="two"
' Paste chart at cursor position
WDApp.Selection.PasteSpecial Link:=False
DataType:=wdPasteMetafilePicture, _
Placement:=wdInLine, DisplayAsIcon:=False


Is there a way that the macro can resize the picture that has bee
pasted in the document.

Thank

 

[Debra Dalgleish]

You should be able to backspace and select the picture, then set the
height and width:

WDApp.Selection.TypeBackspace
WDApp.Selection.InlineShapes(1).Height = 100
WDApp.Selection.InlineShapes(1).Width = 200

 

[MTBer]

Excellent, that works lovely.

Thank you for assistanc