ComputerForum.com ComputerForum.com  

Go Back   Computer Forum > Computer Software > General Software

Reply
 
LinkBack Thread Tools Search this Thread Display Modes
Old 06-18-2007, 06:20 PM   #1
Megabyte Member
 
PC Hobbyist's Avatar
 
Join Date: Jun 2006
Posts: 730
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.
__________________
TV for computer geeks: Revision3.com
Dual-boot Vista + XP
Free HDD diagnostic GWScan + HD Tune
Free RAM diagnostic
Free recover files: Recuva
PC Hobbyist is offline   Reply With Quote
Sponsored Links
Old 06-18-2007, 07:33 PM   #2
Megabyte Member
 
PC Hobbyist's Avatar
 
Join Date: Jun 2006
Posts: 730
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

__________________
TV for computer geeks: Revision3.com
Dual-boot Vista + XP
Free HDD diagnostic GWScan + HD Tune
Free RAM diagnostic
Free recover files: Recuva

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

Reply

Bookmarks

Thread Tools Search this Thread
Search this Thread:

Advanced Search
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 Off
Pingbacks are Off
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
simple writing question ray_miecz CD/DVD/Blu-ray 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/Blu-ray Technology 9 03-11-2006 05:11 AM
Making a DVD... error ray_miecz CD/DVD/Blu-ray Technology 0 02-11-2006 01:00 AM


All times are GMT +1. The time now is 05:13 AM.


Powered by: vBulletin Version 3.8.7
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.0 ©2011, Crawlability, Inc.
Copyright © 2002-2014 Computer Forum