On Error Resume Next
Dim i, j As Single
For i = 2 To ActivePresentation.Slides.Count
    For j = 1 To ActivePresentation.Slides(i).Shapes.Count
        With ActivePresentation.Slides(i).Shapes(j)
            'If .Fill.BackColor = vbWhite And .TextFrame.TextRange.Font.Color = vbWhite Then
                .TextFrame.TextRange.Font.Color = vbBlack
                .TextFrame.TextRange.Font.Bold = msoFalse
                .TextFrame.TextRange.Font.Size = 28
                
            'End If
        End With
    Next
Next
End Sub  

path = ActivePresentation.Slides(1).Shapes("PIC_PATH").OLEFormat.Object.TextSub Text()
Dim oPres As Presentation
Set oPres = Application.ActivePresentation
Dim oSlide As Slide
Dim oShape As Shape
Dim tr As TextRange
Dim i As Long
i = oPres.Slides.count
Set oSlide = oPres.Slides.Item(i)
Set oShape = oSlide.Shapes.Item(1)
With oShape
    .Left = 45
    .Top = 45
    .Width = 620
End With
        
 If oShape.TextFrame.HasText = msoTrue Then
     Set tr = oShape.TextFrame.TextRange
     tr.Font.NameAscii = "宋体"
     tr.Font.NameFarEast = "宋体"
     tr.Font.Size = 28
     tr.Font.Color.SchemeColor = ppBackground
     tr.Font.Color.RGB = RGB(Red:=0, Green:=0, Blue:=0)
     Set tr = Nothing
 End If

Set oShape = Nothing
Set tr = Nothing
Set oSlide = Nothing
Set oPres = Nothing

大

中

小

∧

↑

↓

∨