关于简单的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
页:
[1]