Text highlighted in Powerpoint 2010

[selva_235]

When editing a powerpoint file, all edits should be highlighted at one click of a button for the entire ppt. I do not want to select each text box/ select color, each time, I do any changes.I want to view all editing changes in one click. The merge option does not serve the purpose in PowerPoint. So pls assist us. :(:(:(:(:(

[Paul_Hossler]

In the attached, on slide 2 if you select the blue shape, and then run the macro 'ApplyFormats' it will act like FormatPainter and copy the formatting of the selected shape to all similar shapes

Of course, it doesn't have to be the blue shape.

Select the gray textbox on slide 2 and run the macro




Option Explicit
Sub ApplyFormats()
Dim oPres As Presentation
Dim oSlide As Slide
Dim oShape As Shape, oOriginalShape As ShapeRange
Set oPres = ActivePresentation


If ActiveWindow.Selection.Type = ppSelectionShapes Then

Set oOriginalShape = ActiveWindow.Selection.ShapeRange

For Each oSlide In oPres.Slides
For Each oShape In oSlide.Shapes
If oShape.Type = oOriginalShape.Type Then
If Not oShape Is oOriginalShape Then
oOriginalShape.PickUp
oShape.Apply
End If
End If
Next
Next
End If
End Sub

[selva_235]

Thanks Paul

While editing the content in PowerPoint by using the short key or by running the macro is it possible to change the character color from black to red. Kindly give us solution by giving macro or short key.

Thanks
Selvakumar

[Paul_Hossler]

Option Explicit
Sub ApplyFormats_1()
Dim oPres As Presentation
Dim oSlide As Slide
Dim oShape As Shape, oOriginalShape As ShapeRange
Set oPres = ActivePresentation


If ActiveWindow.Selection.Type = ppSelectionShapes Then

Set oOriginalShape = ActiveWindow.Selection.ShapeRange

For Each oSlide In oPres.Slides
For Each oShape In oSlide.Shapes
If oShape.Type = oOriginalShape.Type Then
If Not oShape Is oOriginalShape Then
oOriginalShape.PickUp
oShape.Apply

If oShape.HasTextFrame Then
If oShape.TextFrame.HasText Then
oShape.TextFrame.TextRange.Font.Color = vbRed
End If
End If

End If
End If
Next
Next
End If
End Sub

[selva_235]

Thanks so much paul.

I have one more doubt. When i selected the text in powerpoint it will changed font in red not for all slides i choose text only. Please give me vba code for this question it will help for me.

Thanks

[Paul_Hossler]

The macro will only change the font on the same type of shapes that match the selected shape

So if you select a Textbox, they the macro will only change other Textboxes to match the color, etc. AND only in Textboxes will the font color change to Red.

Do you want to change ALL font color to red in every shape (textbox, rectangle, circle, etc.) and for placeholders (Title, Content, etc.)?