Text highlighted in Powerpoint 2010

[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