create template with ALL CAPS heading

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I am trying to create template in powerpoint and would like the headings to
only give CAPS LOCK option for text.
 
BUT>>>

If you can use vba this code will instantly change all titles to upper case!

Sub TitlesToUpper()
Dim oSld As Slide
Dim oShp As Shape

For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
If oShp.Type = msoPlaceholder Then
If oShp.HasTextFrame Then
If oShp.TextFrame.HasText Then
If oShp.PlaceholderFormat.Type = ppPlaceholderCenterTitle Or _
oShp.PlaceholderFormat.Type = ppPlaceholderTitle Then
oShp.TextFrame.TextRange.Text = UCase(oShp.TextFrame.TextRange.Text)
End If
End If
End If
End If
Next oShp
Next oSld

End Sub
--
-----
Did that answer the question / help?
_____________________________
John Wilson
Microsoft Certified Office Specialist
http://www.technologytrish.co.uk/ppttipshome.html
 
Oh, and I meant to mention -- we can actually do this in PPT 2007.

In 2007, you go to the slide master, select the placeholder, and launch the
Font formatting dialog box. There you can check a box beside "all caps," and
that will make the text in those placeholders on the slides all caps. (We
can't do this in current versions because there's no "all caps" option in
Format | Font.) In fact, there's also an option for small caps, which I'm
very happy about.

I'll have to add this to my "What's new in PPT 2007?" list.

--
Echo [MS PPT MVP] http://www.echosvoice.com
What's new in PPT 2007? http://www.echosvoice.com/2007.htm
Fixing PowerPoint Annoyances http://www.oreilly.com/catalog/powerpointannoy/
PPTLive! Sept 17-20, 2006 http://www.pptlive.com


Echo S said:
bamboozledAnna said:
I am trying to create template in powerpoint and would like the headings
to
only give CAPS LOCK option for text.
Click to expand...

Unfortunately, you can't.

--
Echo [MS PPT MVP] http://www.echosvoice.com
What's new in PPT 2007? http://www.echosvoice.com/2007.htm
Fixing PowerPoint Annoyances
http://www.oreilly.com/catalog/powerpointannoy/
PPTLive! Sept 17-20, 2006 http://www.pptlive.com
Click to expand...
 
Back
Top