将PPT里的文字全部改变字体颜色

由天下分享时间：2024/12/28 16:05:09 加入收藏我要投稿点赞

将PPT里的文字全部改变字体颜色

将PPT里的文字全部改变字体颜色.txt当你以为自己一无所有时，你至少还有时间，时间能抚平一切创伤，所以请不要流泪。能满足的期待，才值得期待；能实现的期望，才有价值。保持青春的秘诀，是有一颗不安分的心。不是生活决定何种品位，而是品位决定何种生活。如何将PPT里的文字全部改变字体颜色，

[ 标签：字体颜色,ppt,字体 ] PPT里是黑底模板白色字体，想改成黑色字体白色模板打印，如何全部改掉，不要一个一个的改。过去回答:2 人气:2 解决时间:2009-04-21 19:33 检举满意答案一次性修改所有ppt页面中字体的颜色和大小有朋友问我如何一次性修改所有ppt页面中字体的颜色和大小，由于powerpoint没有现成的菜单，今天索性写了一个宏，水平有限，不足之处请大家指正！Sub Macro1()For i = 1 To ActiveWindow.Selection.SlideRange.SlideNumber CountIf

num

= =

ActiveWindow.Selection.SlideRange.Shapes.ActiveWindow.Selection.SlideRange.SlideNumber Then num = num - 1End IfFor j = 1 To

num ActiveWindow.View.GotoSlide Index:=i

aaa

ActiveWindow.Selection.SlideRange.Shapes(j).Name If InStr(1, aaa, \Then

ActiveWindow.Selection.SlideRange.Shapes(j).Select

ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select

ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Size = 20 '改成你想要的字

体

大

小

ActiveWindow.Selection.TextRange.Font.Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) '改成你想要的字体颜色 End If If InStr(1, aaa, \> 0 Then ActiveWindow.Selection.SlideRange.Shapes(j).Select

ActiveWindow.Selection.TextRange.Font.Size = 20 '改成你想要的字体大小 ActiveWindow.Selection.TextRange.Font.Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) '

改成你想要的字体颜色 End IfNext jNext iEnd Sub答案补充格式-幻灯片设计-“幻灯片设计-配色方案” 选一个你要的颜色文字和符号都会变颜色不过貌似对PPT背景也有影响你先试下不行我再研究研究检举提问人的追问 2009-04-18 17:14 好的，我试试，不行再请教一下，谢谢了检举完善答案

ＺＡＮＥ回答采纳率:17.0% 2009-04-18 17:07 评价答案

是否解决问题(参与评价0次) 能解决： 0次评价成功原创加2!部分解决： 0次评价成功原创加2!不能解决： 0次评价成功原创加2!是否原创答案(参与评价0次) 原创： 0次评价成功原创加2!非原创： 0次评价成功原创加2!过去的感言：谢谢

满意答案在视图》母版》幻灯片母版里面改。如果是打印的话没必要改的，打印的选项里有直接打成你想要的效果的设置的，打印店的人一般都会啦，你直接拿过去给他打就可以了。

在新代码窗口中，删除原来的内容，并复制以下内容，然后运行宏（若不能运行，请看下面）。此时工作已经全部完成了。

查看源代码打印帮助 01 Sub myfont() 02

03 Dim oShape As Shape

04 Dim oSlide As Slide

05 Dim oTxtRange As TextRange

06 On Error Resume Next '之后的代码就算出错也会继续执行 07 08

For

Each

oSlide