I have this in my PP Addin -- select a shape and run the macro -- it used FormatPainter, but you can change it
The supporting macros are in the attachment, but this is the main one
Should give you nudge in the direction I think you want to go
Option Explicit
Sub FormatAllShapes()
Dim oSlide As Slide
Dim oShape As Shape, oSelectedShape As Shape
If NoPresentation Then Exit Sub
Set oSelectedShape = Nothing
On Error Resume Next
Set oSelectedShape = PowerPoint.ActiveWindow.Selection.ShapeRange(1)
On Error GoTo 0
If oSelectedShape Is Nothing Then Exit Sub
If MsgBox("Do you want to format all " & StrShapeName(oSelectedShape, True) & " like the selected one?", vbOKCancel + vbQuestion, "Sub: FormatAllShapes") = vbCancel Then Exit Sub
ScreenUpdating = False
oSelectedShape.PickUp
For Each oSlide In ActivePresentation.Slides
For Each oShape In oSlide.Shapes
If oShape.Type = oSelectedShape.Type Then
oShape.Apply
End If
Next oShape
Next oSlide
ActiveWindow.Selection.Unselect
ScreenUpdating = True
Call MsgBox("All " & StrShapeName(oSelectedShape, True) & " have been formatted like the selected " & StrShapeName(oSelectedShape) & " in " & ActivePresentation.Name, vbInformation + vbOKOnly, "Sub: FormatAllShapes")
End Sub