View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Debra Dalgleish Debra Dalgleish is offline
external usenet poster
 
Posts: 2,979
Default Pasting Excel To Word and resizing

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