Copy from Excel and paste as bitmap in Word

[Julie]

Good day everybody,

I am writing a macro in Excel 2002 which will select a range of cells in
Excel and paste to Word 2002 as bitmap.

I have search the web and found and used this command.

WordApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteBitmap,
Placement:=wdInLine, DisplayAsIcon:=False

It works. But the paste result is not same as I do manually(PasteSpecial as
Bitmap).
The code gave me a worksheet object in Word which can be edited. I want the
result as a bitmap that cannot be edited.

I have tried to replace wdPasteBitmap with wdPasteDefault,
wdPasteMetafilePicture and wdChart, but all doesn't give the result that I
need.

Can anyone help me?

Thanks in advance and have a nice day.

Best regards,
Julie

 

[NickHK]

Julie,
This code works as expected in Office 2K work.
May be ask in a Word NG.

NickHK

 

[Tim Williams]

You could try using CopyPicture in excel instead of copy.

Tim

 

[Julie]

Hi Tim, Thanks very much, it worked!

Have a nice day.