在PowerPoint中更改文本效果

Question

我想在PowerPoint中更改文字效果，特别是Glow效果。

我有约2500个PowerPoint文件，每个文件有1-15张幻灯片，我需要更改文本以获得文本发光效果（不是形状发光效果）。

我认为最简单的方法是创建一个宏，但我找不到办法做到这一点。

Answer 1

这里是发光部分的起点：

将对包含文本的形状的引用传递给该子;编辑半径，颜色和透明度以适应。

Sub GlowTheTextIn（oSh As Shape）     使用oSh.TextFrame2.TextRange         用.Font.Glow             .Radius = 25             .Color = RGB（255,0,0）             。透明度= 0.5         结束     结束 结束子

这将为您提供一个起点，为文件夹中的每个演示文稿，演示文稿中的每个幻灯片，幻灯片上的每个形状做一些事情：

做一些事情 - 幻灯片上的每个形状，演示文稿中的每张幻灯片，文件夹中的每个演示文稿 http://www.pptfaq.com/FAQ00594_Do_something_to_--_every_shape_on_a_slide-_every_slide_in_a_presentation-_every_presentation_in_a_folder.htm