Copy from Excel and paste as bitmap in Word
 

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

Copy from Excel and paste as bitmap in Word
 

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

NickHK

"Julie" wrote in message
...
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

Copy from Excel and paste as bitmap in Word
 

You could try using CopyPicture in excel instead of copy.

Tim

"Julie" wrote in message
...
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

Copy from Excel and paste as bitmap in Word
 

Hi Tim, Thanks very much, it worked!

Have a nice day.