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
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Issues with Word when exporting data from Excel - errorhandling 2
xl to word procedure - troubles with references (xl2003) 2
Marco Excel chart to active word document (Office 2010) 5
copy excel char to specific page in Word (VBA) 1
Copy from Excel and paste as bitmap in Word 3
Excel to Word Run-time error 91 1
copy from excel to word 4
Make this paste_into_word code flexible to unknown office/word version >97? 1

Back
Top