对于我的PowerPoint,我的目标是将所有带有发光的文本替换为不同的格式(没有带有特定字体颜色的发光),但是替换每种文本格式的常规方法是使用据我所知,指定的文本不支持发光。
Sub White2Black()
昏暗的oSld作为幻灯片
形状变暗oShp
暗淡x长久
对于ActivePresentation.Slides中的每个oSld
对于oSld.Shapes中的每个oShp
如果是oShp.HasTextFrame然后
如果是oShp.TextFrame.HasText,那么
使用oShp.TextFrame.TextRange
对于x = .Runs.Count到1步骤-1
如果IsNumeric(.Runs(x))= True和.Runs(x).Font.Color.RGB = RGB(255,0,0)
然后
.Runs(x).Font.Glowformat.Radius = 18
.Runs(x).Font.Glowformat.Color.RGB = RGB(255,240,0)
.Runs(x).Font.Glowformat.Transparency = 0.6
.Runs(x).Font.Color.RGB = RGB(255,255,0)
其他
.Runs(x).Font.Color.RGB = RGB(0,0,0)
万一
下一页x
结尾为
如果有文字则结束
如果文本框为
Next oShp<br>
下一个oSld
结束Sub