Using vba automation. Copy to clip board a chart from JMP. The chart does consist of several items, combination of test and pictures.

When I paste special > bitmap from the menu, it get what I expect, a single picture.
When I APPword.Selection.PasteSpecial (ppPasteBitmap) I get all of the items separate.

Some text, some pictures, not the same as paste special from the menu.


Any help will be greatly appreciated

That is odd. I've not seen this and can't begin to work out why a single paste would do that. But I wouldn't be using the selection object either, especially when you are automating Word from a different program. And getting Word to do a clipboard conversion into a bitmap is not a great practice either.

Is it possible to export the graphic from JMP (to a temporary location) in a format that can then be imported into Word? This would be the preferred method because you should be able to control the bitmap resolution/format better than Word's clipboard conversion can do.

I've recently had a client tell me that a png bitmap in their Word 2016 document contained editable text. This is 'not possible' unless Word is doing some OCR on the graphic - Is it possible that the bitmap is being surreptitiously OCR'd by Word to make it appear your graphic is being pasted in separate objects?

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

Thank you for your reply.

This created the problem. I did not get any errors, but it was correct either
APPword.Selection.PasteSpecial (ppPasteBitmap)

This fixed the problem
APPword.Selection.PasteSpecial DataType:=wdPasteBitmap

This did n't work either and agin no error
APPword.Selection.PasteSpecial , , , , wdPasteBitmap

I'm an engineer, not a programmer so I do stupid things. Still strange, no error

Ahh. Another thing to try is exchanging the constant for its integer value.
wdPasteBitmap = 4 <-- this is word constant
ppPasteBitmap = 0 <-- This is a powerpoint constant

Using these constants when the code is running in other programs is often problematic. Try
Selection.PasteSpecial DataType:=4

This page tells you the possible datatype integer values
https://msdn.microsoft.com/en-us/lib.../ff197265.aspx

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia