VBA code to convert imported image to Microsoft Office Drawing Object

[9tanstaafl9]

Is this possible? I would like to use a macro to convert an image exported from another program into a Microsoft Drawing Object, so that when users save the file they won't get a bunch of error messages. If I right click the image, choose edit, and then say OK on the message asking if I want to convert, this solves the problem -- but I need it to happen with the macro, since I won't be there when this happens in the future.

I tried using the macro recorder, but it doesn't record anything other than that I selected the picture.

And I would just have the macro do a save without showing the error message, but this won't help when users reopen or edit the file later and they aren't using my macro (which basically just reformats the sheet for them so the exported file is pretty and has formulas instead of just values).

Any ideas?

It is a Crystal Report exported into Excel 98-2003, opened with Excel 2010 if that matters.

 

[Bambino]

Is this possible? I would like to use a macro to convert an image exported from another program into a Microsoft Drawing Object, so that when users save the file they won't get a bunch of error messages. If I right click the image, choose edit, and then say OK on the message asking if I want to convert, this solves the problem -- but I need it to happen with the macro, since I won't be there when this happens in the future.

I tried using the macro recorder, but it doesn't record anything other than that I selected the picture.

And I would just have the macro do a save without showing the error message, but this won't help when users reopen or edit the file later and they aren't using my macro (which basically just reformats the sheet for them so the exported file is pretty and has formulas instead of just values).

Any ideas?

It is a Crystal Report exported into Excel 98-2003, opened with Excel 2010 if that matters.

Hi. I have the same problem. Did you find any solution?

regards Felix

 

[AkaTrouble]

it is possible the imported image is seen as a group

have a read here image - Is it possible to use VBA to ungroup an EPS picture to create a Microsoft Office drawing object in Word? - Stack Overflow

sorry if not what you needed

 

[Bambino]

it is possible the imported image is seen as a group

have a read here image - Is it possible to use VBA to ungroup an EPS picture to create a Microsoft Office drawing object in Word? - Stack Overflow

sorry if not what you needed

Hi,

thanks for that but this is not what I need.

I have an imported image in MS word. When I try to ungroup it I got the message that it is not a group but an imported image and it can be converted to a ms drawing object.

And I want to do that via macro, because I have to do it in >1000 files

 

[Bambino]

This is the ms word message:

https://www.flickr.com/photos/150825675@N07/shares/r730G8

 

[9tanstaafl9]

No, I didn't. Sorry. I also didn't realize there was a way to check on my really old posts until today, so I apologize for not responding earlier.

 

[jbartnik]

I just found a solution - try this

ActiveDocument.InlineShapes(1).Select
call CommandBars.ExecuteMso("PictureEditWord")

to convert it back, try use PasteSpecial as a type wdPasteEnhancedMetaFile

Allways use DoEvents before PasteSpecial