> I'm editing ppts made by someone else. The text all had shadows. I made a
> new
> design template with no shadows on the masters. When I applied the new
> design, some of the slides changed but others still have shadows. What can
> I
> do besides change the rest manually?
Thanks. I figured that was the problem. I was hoping someone knew a magic
trick since I have over a thousand slides to fix. But it looks like I'll be
spending time with my old pal format painter. . . .
> Hi Ed
> It is possible that some of the slides (the ones that haven't changed) have
[quoted text clipped - 19 lines]
> > I
> > do besides change the rest manually?
SuperPresentationMan - 13 Oct 2006 22:17 GMT
Hi Ed
There is another alternative: you can send your files to
SuperpresentationMan and, for a modest investment, your PowerPoint files
will be returned to you with all of the changes completed. And, because
SuperPresentationMan is based in New Zealand, the different timezone means
your project can be completed while you sleep.
If you would like to know more please visit the SuperPresentationMan website
or send an email using the Contact Page on the website.
Thank you
-SuperPresentationMan
"Our PowerPoint Hero"
www.SuperPresentationMan.com
> Thanks. I figured that was the problem. I was hoping someone knew a magic
> trick since I have over a thousand slides to fix. But it looks like I'll
[quoted text clipped - 29 lines]
>> > I
>> > do besides change the rest manually?
Steve Rindsberg - 14 Oct 2006 06:02 GMT
> Thanks. I figured that was the problem. I was hoping someone knew a magic
> trick since I have over a thousand slides to fix. But it looks like I'll be
> spending time with my old pal format painter. . . .
If I understand you correctly, the problem is that some text has shadows, and you want to get
rid of ALL shadows on text.
It shouldn't be all that difficult to cobble up a little macro to do the job.
I think this should about do it. Give it a try on (please!) a COPY of your original file.
Sub DeShadowText
Dim oSh as Shape
Dim oSl as Slide
For Each oSl in ActivePresentation.Slides
For Each oSh in oSl.Shapes
.Shadow.Visible = False
If oSh.HasTextFrame then
If oSh.TextFrame.HasText Then
oSh.TextFrame.TextRange.Font.Shadow = False
End If
End If
Next
Next
End Sub
> > Hi Ed
> > It is possible that some of the slides (the ones that haven't changed) have
[quoted text clipped - 19 lines]
> > > I
> > > do besides change the rest manually?
-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
ed - 16 Oct 2006 14:51 GMT
Thanks. It's worth a try.
> > Thanks. I figured that was the problem. I was hoping someone knew a magic
> > trick since I have over a thousand slides to fix. But it looks like I'll be
[quoted text clipped - 52 lines]
> PPTools: www.pptools.com
> ================================================