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