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
D... 阅读全帖 |
|
s******t
发帖数: 100 | 2 我想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... 阅读全帖 |
|
d*b
发帖数: 21830 | 3 没文化真搞笑，测辐射剂量又不是一定得用手持剂量仪，用OSLD就可以了。带手持的目
的是个人辐射防护而不是测这个地方是不是真是试验场。
斯 |
|
t******n
发帖数: 2939 | 4 ☆─────────────────────────────────────☆
KingOfLunHui (轮回之王) 于 (Wed May 22 12:53:38 2013, 美东) 提到:
题目很拗口。
☆─────────────────────────────────────☆
KingOfLunHui (轮回之王) 于 (Wed May 22 12:55:36 2013, 美东) 提到:
我艹，挖坑界又升起了一枚新星啊！
连环坑，我看好你！
☆─────────────────────────────────────☆
CleverBeaver (我不是Otter) 于 (Wed May 22 12:58:45 2013, 美东) 提到:
看上去不像捏造的啊
☆─────────────────────────────────────☆
BigWei (BigWei) 于 (Wed May 22 13:21:55 2013, 美东) 提到:
你用传教士体位把她怅悔了？
>当
>时说的我的脸上就挂不住了，自己回酒店反思自己的龌龊心思反思... 阅读全帖 |
|
