Good day! I encountered such a problem: there is a file and it is necessary to make a pair of manipulation with the help of macros. I did everything similar to the EXCEL file, but does not want to work work with pictures. there is a picture on the sheet, it is necessary to immediately hide, create PDF, and then back display. PDF I created, but with the problems of the picture. I am doing so:

ActiveDocument.Shapes.Range(Array("Picture 1")).Visible = False

writes the object is not found, try to replace the name of the Picture 1 pictures, did not help ... please tell me what am I doing wrong) :

Is 'Picture 1' the name of the picture? If so, you should be able to use:
ActiveDocument.Shapes("Picture 1").Visible = False

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

did as you said, still he says that is not found object with this name. Run-time error '-2147024809'.

All that means is that the picture's name isn't 'Picture 1', it isn't in the document body, or that it's an InlineShape object - not a Shape object.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

but as I can see the image name?

See it where?

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Well, how do you know the file name? excel in clear, there is a column where it is written the name of the file to be added, and in the Word anything similar did not find ...

What does any of this have to do with a filename? Your code concerns a Shape name in a Word document - a name that has nothing to do with a filename. InlineShape objects, on the other hand, don't even have names...

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]