Tech Support Guy banner
  • Please post in our Community Feedback thread for help with the new forum software! If you are having trouble logging in, please Contact Us for assistance.
Status
Not open for further replies.
1 - 6 of 6 Posts

·
Registered
Joined
·
2,291 Posts
Discussion Starter · #1 ·
I have a simple PP....it's complete already....how do I change the tex color for all slides? Thanks!
 

·
Registered
Joined
·
4,916 Posts
How many slides are you talking about? I am not familiar enough with Powerpoint to know if this can be done in one step within the program but it certainly can be done programatically using some VBA macro code if you want.

Regards,
Rollin
 

·
Registered
Joined
·
4,916 Posts
Slurpee,

The link you provided is exactly what the original poster needs. He or she simply needs to remove any of the code that changes the other font properties which are highlighted in red below. The color of the font can be adjusted by changing the ratio of RED, GREEN BLUE to reflect the color of choice. The code to change the actual color is highlighted in Blue below.

Code:
Sub allchange()
Dim osld As Slide, oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoPlaceholder Then
'Title text change values as required
If oshp.PlaceholderFormat.Type = 1 or oshp.PlaceholderFormat.Type = 3 Then
With oshp.TextFrame.TextRange.Font
[COLOR="Red"].Name = "Arial"
.Size = 36[/COLOR]
[COLOR="Blue"].Color.RGB = RGB(0, 0, 255)[/COLOR]
[COLOR="Red"].Bold = msoFalse
.Italic = msoFalse
.Shadow=false[/COLOR]
End With
End If
If oshp.PlaceholderFormat.Type = 2 or oshp.PlaceholderFormat.Type = 7 Then
'Body text change values as required
With oshp.TextFrame.TextRange.Font
[COLOR="red"].Name = "Arial"
.Size = 24[/COLOR]
[COLOR="Blue"].Color.RGB = RGB(255, 0, 0)[/COLOR]
[COLOR="Red"].Bold = msoFalse
.Italic = msoFalse
.Shadow=false[/COLOR]
End With
End If
End If
Next oshp
Next osld
End Sub
Regards,
Rollin
 
1 - 6 of 6 Posts
Status
Not open for further replies.
Top