How to undo Set Transparent Color after saving the Presentation? W10

I have been visually comparing two pages of text to verify everything is same except three-characters month abbreviation (at fixed position); in other words, all text except month information is standard.
To do this, I stacked two Full Print Screens as below:

If result is above, then I am confident that two pages are same except for month information.
Problem appears when the standard needs to be changed; say Jane is now John.
I need to use this month of Text (which shows John) as standard; to do so, I need to undo the transparent color which is already saved into the Presentation; and delete the out-dated Page (which shows Jane).

How to reset the image for transparent color only? without having to reset other attributes?

There is VBA which is not preferred solution in my work environment; for others, here is code from
My question is what value is reset for Shape.PictureFormat.TransparencyColor?
Is 0 the value to set in VBA for "Shape.PictureFormat.TransparencyColor" which worked yesterday by my trial and error?

Code:

Sub TransparencyColor_Reset()
' PowerPoint does not provide Reset Transparency Color
' https://answers.microsoft.com/en-us/msoffice/forum/all/how-to-undo-set-transparent-color-after-saving-the/05959655-cfa7-4761-a0e2-b9f55519b3a9
'  I have been visually comparing two pages of text to verify everything is same except three-characters month abbreviation (at fixed position); in other words, all text except month information is standard.
'  To do this, I stacked two Full Print Screens as below:
' 16777215 is White color (Decimal 16777215) - Converting Colors
' -2147483648 TransparencyColor when NOT set for White Color
    Dim PP As PowerPoint.Application
    Dim Pres As PowerPoint.Presentation
    Dim curSlide As Slide
    Dim curShape As Shape
    
    On Error Resume Next
    Set PP = GetObject(, "PowerPoint.Application")
    On Error GoTo 0
    Set Pres = PP.ActivePresentation
    With Pres
        PP.Visible = True
        For Each curSlide In .Slides
            For Each curShape In curSlide.Shapes
                With curShape
                        With .PictureFormat
                            .TransparencyColor = 0
                        End With
                End With
            Next curShape
        Next curSlide
    End With
End Sub