Hi all
I've the following code, but it only replaces numbers in text boxes to an X. I can't find a way for this to change numbers within tables and charts, to an X - it only changes in text boxes. Any advice please? Thank you.
Sub AllNumbersAreX()
Dim fnd As Variant
Dim rplc As Variant
Dim NumberArray As Variant
Dim TxtRng As TextRange
Dim TmpRng As TextRange
Dim sld As Slide
Dim shp As Shape
'Find/Replace Variables
NumberArray = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)
rplc = "x"
'Loop Through Each Slide
For Each sld In ActivePresentation.Slides
For y = LBound(NumberArray) To UBound(NumberArray)
For Each shp In sld.Shapes
fnd = NumberArray(y)
If shp.HasTextFrame Then
If shp.TextFrame.HasText Then
Set TxtRng = shp.TextFrame.TextRange
Set TmpRng = TxtRng.Replace(FindWhat:=fnd, _
ReplaceWhat:=rplc, WholeWords:=False)
End If
End If
'Replace Other Instances (if necessary)
Do While Not TmpRng Is Nothing
Set TmpRng = TxtRng.Replace(FindWhat:=fnd, _
ReplaceWhat:=rplc, WholeWords:=False)
Loop
Next shp
Next y
Next sld
MsgBox "All text and chart numbers are now X"
End Sub