在 PowerPoint 中更改文本效果
Change text effects in PowerPoint
我想更改 PowerPoint 中的文本效果，特别是发光效果。
我有大约 2500 个 PowerPoint 文件，每个文件有 1-15 张幻灯片，我需要更改文本以获得文本发光效果（不是形状发光效果）。
我认为最简单的方法是创建一个宏，但是我找不到这样做的方法。
这里是发光部分的起点：
将对包含文本的形状的引用传递给此子；编辑适合的半径、颜色和透明度。
Sub GlowTheTextIn（oSh 为形状）
与 oSh.TextFrame2.TextRange
与.Font.Glow
.半径 = 25
.颜色 = 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
我想更改 PowerPoint 中的文本效果，特别是发光效果。
我有大约 2500 个 PowerPoint 文件，每个文件有 1-15 张幻灯片，我需要更改文本以获得文本发光效果（不是形状发光效果）。
我认为最简单的方法是创建一个宏，但是我找不到这样做的方法。
这里是发光部分的起点：
将对包含文本的形状的引用传递给此子；编辑适合的半径、颜色和透明度。
Sub GlowTheTextIn（oSh 为形状） 与 oSh.TextFrame2.TextRange 与.Font.Glow .半径 = 25 .颜色 = 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