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 < wrote:
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 been
pasted in the document.
Thanks
---
Message posted from http://www.ExcelForum.com/
--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html