Pasting Excel To Word and resizing

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
 
D

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
 

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
copy from excel to word 4
Excel to Word Run-time error 91 1
VBA Code - Pasting Pictures from Excel into Word 1

Top