ComputerForum.com ComputerForum.com  
TigerDirect
 
Go Back   Computer Forum > Computer Software > General Software

Reply
 
LinkBack Thread Tools Display Modes
Old 06-18-2007, 06:20 PM   #1 (permalink)
Platinum Member
 
PC Hobbyist's Avatar
 
Join Date: Jun 2006
Posts: 589
Default Powerpoint - how do I select all text

In a powerpoint 2007 presentation, how can I select all the text boxes in the entire presentation to change the text color all at once?

I am only able to select all the text boxes in a single slide to change the text color.

PS - These are text boxes created via the "drawing" tool (like in MS Word).

I also tried changing the theme to a plain white with black text, but nothing happens.
__________________

PC Hobbyist is offline   Reply With Quote


Old 06-18-2007, 07:33 PM   #2 (permalink)
Platinum Member
 
PC Hobbyist's Avatar
 
Join Date: Jun 2006
Posts: 589
Default I found the solution

hey, once again, I'll answer to my own post .

I found this VB Script, that I pasted into Powerpoint and it will change all the text color in the presentation to whatever RGB values you enter when prompted by the macro. It worked like a charm. I have 15 presentations - each with about 70 slides - and now I don't have to go slide by slide to change all the text boxes.

It is from this webpage: http://www.pptfaq.com/FAQ00465.htm
I'll post it here for those who might find it helpful:

Sub ChangeFontColor()
' This will change the color of all PowerPoint text to the color you specify in RGB below
' It won't affect text in charts, pasted graphics, groups, etc.

Dim R As Integer
Dim G As Integer
Dim B As Integer

R = Val(InputBox("Please input red value"))
G = Val(InputBox("Please input green value"))
B = Val(InputBox("Please input blue value"))

Dim oSld As Slide
Dim oShp As Shape
Dim oShapes As Shapes

For Each oSld In ActivePresentation.Slides
Set oShapes = oSld.Shapes
For Each oShp In oShapes
If oShp.HasTextFrame Then
If oShp.TextFrame.HasText Then
oShp.TextFrame.TextRange.Font.Color.RGB = RGB(R, G, B)
End If
End If
Next oShp
Next oSld


End Sub

__________________


Last edited by PC Hobbyist; 06-18-2007 at 07:35 PM.
PC Hobbyist is offline   Reply With Quote
Reply

Bookmarks

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
simple writing question ray_miecz CD/DVD Technology 20 07-27-2007 11:33 PM
Delay on reboot (15 mins) LM79 Computer Security 26 06-19-2007 08:31 PM
A known way or program to paste text by assigning text to keys? andrewanimation General Software 4 03-16-2007 07:34 AM
nero express 6 burning problems Septimus CD/DVD Technology 9 03-11-2006 05:11 AM
Making a DVD... error ray_miecz CD/DVD Technology 0 02-11-2006 01:00 AM



All times are GMT +1. The time now is 04:43 PM.


Powered by: vBulletin Version 3.7.3
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.2.0 ©2008, Crawlability, Inc.
Copyright © 2002-2008 Computer Forum and Web Design Forum