Add Border to all images

[bhammer]

PPT 2003,
A few years back I had nifty set of toos (add-in, I believe) that, among
other things had a command that added a border of your choosing to all images
contained in the ppt. I can't find it now. I know IIW does this upon import,
but I want to do it after they've been inserted into slides.

I have some VBA experience in Access. Is a macro the way to go, how?

 

[David Marcovitz]

PPT 2003,
A few years back I had nifty set of toos (add-in, I believe) that, among
other things had a command that added a border of your choosing to all images
contained in the ppt. I can't find it now. I know IIW does this upon import,
but I want to do it after they've been inserted into slides.

I have some VBA experience in Access. Is a macro the way to go, how?

A macro is probably the way to go with this. I would think that the easiest
thing to do would be to set the border for one shape and then attach that
border to all the other shapes. You can cycle through all the shapes with
something like:

For Each oSld in ActivePresentation.Slides
For Each oShp in oSld.Shapes
If oShp.Type = msoPicture Then
'Do what you need to do to the border of oShp
'I don't know the code off the top of my head
End If
Next oShp
Next oSld



--
David M. Marcovitz
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/
Microsoft PowerPoint MVP
Associate Professor, Loyola University Maryland