Replace every number with an X

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.

Code:

---


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

---

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

Code:

---

Maybe starting here with

       

Code:

       

---

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

---

---