Re: How do I change the text color on all my slides at one time?
- From: Steve Rindsberg <abuse@xxxxxxxxxxxxx>
- Date: Sat, 13 May 2006 16:30:53 EDT
In article <95E50670-00B3-448D-A36E-04EAD9A37688@xxxxxxxxxxxxx>, John Wilson
wrote:
That code looks so useful that Ive made a small change to make it easier to
enter colour values!
Nice touch ... thanks. I've incorporated the change into the one on the FAQ
Sub ChangeFontColor()
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
-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
.
- References:
- Prev by Date: Re: Executing javaw from PowerPoint without warnings
- Next by Date: Re: How do i resize a 39 Mg presentation to a 10 Mg presentation
- Previous by thread: Re: How do I change the text color on all my slides at one time?
- Next by thread: Re: Portable presentations
- Index(es):
Relevant Pages
|
