使用VBA替换发光文本格式时遇到一些问题

时间:2019-03-02 19:23:40

标签: vba powerpoint-vba

对于我的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

0 个答案:

没有答案