关于简单的PPT VBA问题，求大神帮忙。。。

闲云野鹤

我的目的是要将PPT里面的公式字体变成白色的，下面的代码可以实现全部PPT的转换，但是这样很容易出问题，我想弄成只对当前选中的某一页PPT有用，求教怎么处理，不胜感激。最好是把完整的代码贴出来，本人新手，各种不会。。。。
附代码：
Sub 批量将ppt里面的公式变白()
Dim xShp As Shape
Dim xSld As Slide
For Each xSld In ActivePresentation.Slides   '遍历所有幻灯片
    For Each xShp In xSld.Shapes    '遍历所有形状（图形、文本框、表格、OLE对象如公式等）
        If xShp.Type = 7 Then       '7代表msoEmbeddedOLEObject
            xShp.PictureFormat.ColorType = msoPictureBlackAndWhite  '颜色类型
            xShp.PictureFormat.Brightness = 1   '亮度0-1
            xShp.PictureFormat.Contrast = 1   '对比度0-1
            xShp.Fill.Visible = msoFalse    '不填充
        End If
    Next xShp
Next xSld
End Sub