Pasting Excel To Word and resizing

  • Thread starter Thread starter MTBer
  • Start date Start date
M

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
 
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
 
Back
Top