Text highlighted in Powerpoint 2010

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. :(:(:(:(:(

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

Code:

---

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

---

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

Code:

---

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

---

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

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.)?