关于oshp的讨论汇总 - 话题女王

s******t
发帖数: 100

来自主题: JobHunting版 - 请教如何在Powerpoint中使用Macros改变文字颜色 (转载)

【以下文字转载自 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
D... 阅读全帖

s******t
发帖数: 100

来自主题: Programming版 - 请教如何在Powerpoint中使用Macros改变文字颜色

我想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 ActivePresentatio... 阅读全帖

#	版面	帖数(主题数)
-	全站	4871 (796)
1	Military	3777 (569)
2	Stock	341 (51)
3	Joke	117 (17)
4	History	116 (3)
5	Automobile	100 (9)
6	USANews	55 (9)
7	Midlife	45 (1)
8	Headline	41 (41)
9	Dreamer	33 (13)
10	FleaMarket	32 (20)
11	Living	30 (7)

topics

未名新帖统计// 7月16日

历史上的今天