s******t
发帖数: 100 | 1 【 以下文字转载自 Programming 讨论区 】
发信人: sunlight (阳光), 信区: Programming
标 题: 请教如何在Powerpoint中使用Macros改变文字颜色
发信站: BBS 未名空间站 (Thu Aug 9 10:22:43 2012, 美东)
我想find and replace某种颜色的文字，但是Powerpoint好像不直接提供这种功能。
我的原始文件有一部分黄色的文字，我想改成蓝色，其余的保持黑色。
我在网上搜索到一个例子，但是这是改变整个文件字体的颜色，入骨哦我想选择性的改
变某种颜色的字，该如和修改。我是计算机盲，逐个改，很花时间。
谢谢大家！
Sub ChangeFontColor()
' This will change the color of all PowerPoint text to the color you specify
in RGB below
' It won't affect text in charts, pasted graphics, groups, etc.
Dim R As Integer
Dim G As Integer
Dim B As Integer
R = 0
G = 121
B = 193
Dim oSld As Slide
Dim oShp As Shape
Dim oShapes As Shapes
For Each oSld In ActivePresentation.Slides
Set oShapes = oSld.Shapes
For Each oShp In oShapes
If oShp.HasTextFrame Then
If oShp.TextFrame.HasText Then
oShp.TextFrame.TextRange.Font.Color.RGB = RGB(R, G, B)
End If
End If
Next oShp
Next oSld
End Sub | L*******s
发帖数: 138 | 2 我用vba时候如果不确定句子怎么写，就先打开录制macro功能再手动操作，参考录下的
句子
【在 s******t 的大作中提到】
: 【 以下文字转载自 Programming 讨论区 】
: 发信人: sunlight (阳光), 信区: Programming
: 标 题: 请教如何在Powerpoint中使用Macros改变文字颜色
: 发信站: BBS 未名空间站 (Thu Aug 9 10:22:43 2012, 美东)
: 我想find and replace某种颜色的文字，但是Powerpoint好像不直接提供这种功能。
: 我的原始文件有一部分黄色的文字，我想改成蓝色，其余的保持黑色。
: 我在网上搜索到一个例子，但是这是改变整个文件字体的颜色，入骨哦我想选择性的改
: 变某种颜色的字，该如和修改。我是计算机盲，逐个改，很花时间。
: 谢谢大家！
: Sub ChangeFontColor()
| s******t
发帖数: 100 | 3 不会用VB.
powerpoint没有这个功能，不能录制啊。
【在 L*******s 的大作中提到】
: 我用vba时候如果不确定句子怎么写，就先打开录制macro功能再手动操作，参考录下的
: 句子
|
|
