Mirror multiple images

[MalcolmWalker]

For a PowerPoint presentation I have 90+ images that I have scanned from tranparencies with the slides back to front. I need to mirror them & I can do this one at a time in the image editor I use (Paint Shop Pro 7.04). Does anyone know if there is a way of doing this in a batch process without going to any significant expense?

[DocWatson]

You might try Quick ePics. It's not free, but it has a30 day unlimited image trial period. $19.95 to buy. Never used it, but it should do what you want.

[MalcolmWalker]

Doc Watson - Thank you for responding and for the pointer . I'll certainly try Quick ePics.

[Jezza]

Hi Malcolm

I know this is not an answer specifically for a way to reverse images in a graphics application but I have created a little bit of Powerpoint VB code that will allow you to do this without third party applications.

Insert the images that you want in you presentation then on each page:

Tools --> Macro--->Macros,

Select Reverse from the list and then Run.

This will flip your image horizontally. I have added a powerpoint presentation for you to use/copy as a demo...good luck <img src=/S/cheers.gif border=0 alt=cheers width=30 height=16>

[bigaldoc]

Jerry, I think he wants to mirror his images, not flip. I didn't check your attachment - does it do mirror as well as flip?

[Jezza]

Hi Al, maybe having a Saturday brain melt, but won't a horizontal flip do the job? <img src=/S/scratch.gif border=0 alt=scratch width=25 height=29>

[MalcolmWalker]

Thank you for your reply and attachment. I had great expectations but unfortunately when I run the macro it does no more than selecting the image & the text box. Nothing further happens.

As to your question I am listening in English!

[HansV]

Try this version. It is slightly more convenient - it loops through all slides in the presentation, you don't have to select each in turn.

Sub Reverse()
Dim sld As Slide
Dim shp As Shape

For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
shp.Flip msoFlipHorizontal
Next shp
Next sld
End Sub

[MalcolmWalker]

Hans,

This is strange or I am doing something wrong as your macro doesn't work either; nothing appears to happen! I opened the VB Editor & pasted in the code as i have done before but to no avail. I added two more slides to Jezza's demo so that there would be more than one slide but nothing changed.

[bigaldoc]

MY brain melt, not yours. Doh! I guess I saw the word flip and not the horizontal. I instinctively think of flip as "upside down." Sorry!

[HansV]

Have you tried to run the query (Tools | Macro | Macros...)? Have you made sure that macro security is not set to High (that would disable macros)

But DocWatson's suggestion (Quick ePics) is probably more suitable for your purpose than a PowerPoint macro. Have you downloaded the evaluation version?

[Jezza]

Oh that is disappointing <img src=/S/sad.gif border=0 alt=sad width=15 height=15> as I thought I was onto something there.

It may be something to do with your macro security (clutching at straws here) try looking at Tools--> Macro--->Security and see what setting it is.

I had mine set to High and have now reset it to medium and it works...it may for you.

[HansV]

Your code does work for me, with macro security set to Medium.

[MalcolmWalker]

In PowerPoint the Security is set to Low. As the macros from Jerry & yourself work the problem I have can only be down to me.

Yes Quick wPics will mirror the images in the folder where I saved them after scanning. But the task is more than that as I now have to delete the incorrect image from each of 96 slides & insert the mirrored images. As in PowerPoint that tedious I was delighted at the bonus a macro could give me particularly yours.

I'll have another look at using the macro later today.

Thank you for your help and courtesy.

[MalcolmWalker]

As the macro Security setting in PowerPoint on my computer is Low the problem I am having with your macro must be down to me. I will look at it again later today.