Replace every number with an X

[RayKay]

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

[Aussiebear]

Just wondering if you are delving deep enough with the code to find the charts.



Maybe starting here with


For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.HasChart Then
.... your code to alter the data