《将PPT里的文字全部改变字体颜色.pdf》由会员分享，可在线阅读，更多相关《将PPT里的文字全部改变字体颜色.pdf（11页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、将 PPT 里的文字全部改变字体颜色.txt 当你以为自己一无所有时,你至少还有时间,时间能 抚平一切创伤,所以请不要流泪。能满足的期待,才值得期待;能实现的期望,才有价值。保持青春的秘诀,是有一颗不安分的心。不是生活决定何种品位,而是品位决定何种生活。如何将 PPT 里的文字全部改变字体颜色,标签:字体颜色,ppt,字体 PPT 里是黑底模板白色字体,想改成黑色字体白色模板打印,如何全部改掉,不要一个一个的改。过去回答:2 人气:2 解决时间:2009-04-21 19:33 检 举 满意答案一次性修改所有 ppt 页面中字体的颜色和大小有朋友问我如何一次性修改所有 ppt 页面中字体的颜色
2、和大小,由于 powerpoint 没有现成的菜单,今天索性写了一个宏,水平有限,不足之处请大家指正!Sub Macro1()For i=1 To ActiveWindow.Selection.SlideRange.SlideNumber num=ActiveWindow.Selection.SlideRange.Shapes.CountIf i=ActiveWindow.Selection.SlideRange.SlideNumber Then num=num-1End IfFor j=1 To num ActiveWindow.View.GotoSlide Index:=i aaa=Act
3、iveWindow.Selection.SlideRange.Shapes(j).Name If InStr(1,aaa,text box)0 Then ActiveWindow.Selection.SlideRange.Shapes(j).Select ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Size=20 改成你想要 的字体大小 ActiveWindow.Selection.TextRange
4、.Font.Color.RGB=RGB(Red:=255,Green:=0,Blue:=0)改成你想要的字体颜色 End If If InStr(1,aaa,Rectangle)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 IfNe
5、xt jNext iEnd Sub 答案补充格式-幻灯片设计-“幻 灯片设计-配色方案”选一个你要的颜色文字和符号都会变颜色不过貌似对PPT 背景也有影 响你先试下不行我再研究研究检举 提问人的追问 2009-04-18 17:14 好的,我试试,不行再请教一下,谢谢了检举 完善答案 ZANE 回答采纳率:17.0%2009-04-18 17:07 评价答案 是否解决问题(参与评价 0 次)能解决:0 次评价成功原创加 2!部分解决:0次评价成 功原创加 2!不能解决:0 次评价成功原创加 2!是否原创答案(参与评价 0 次)原创:0 次评价成功原创加 2!非原创:0 次评价成功原创加 2!过
6、去的感言:谢谢 满意答案在视图母版幻灯片母版里面改。如果是打印的话没必要改的,打印的选项里 有直接打成你想要的效果的设置的,打印店的人一般都会啦,你直接拿过去给他打就可以了。在新代码窗口中,删除原来的内容,并复制以下内容,然后运行宏(若不能运行,请看下面)。此时工作已经全部完成了。查看源代码打印帮助 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
7、oSlide In ActivePresentation.Slides 09 oSlide.FollowMasterBackground=msoTrue 使用幻灯片母版背景 10 For Each oShape In oSlide.Shapes 11 12 文本框字体设置 13 With oShape.TextFrame.TextRange.Font 14 .Name=宋体 15 .Size=20 16.Color.RGB=RGB(Red:=0,Green:=0,Blue:=0)17 .Bold=msoFalse 粗 18.Italic=msoFalse 斜 19.Underline=msoF
8、alse 下划线 20 End With 21 oShape.Fill.Background 文本框背景色用幻灯背景填充 22 oShape.TextFrame.TextRange.IndentLevel=0 23 24 表格字体设置 25 oShape.Table.Background.Fill.BackColor.RGB=RGB(Red:=255,Green:=255,Blue:=255)底色 26 For i=1 To oShape.Table.Rows.Count 27 For j=1 To oShape.Table.Columns.Count 28 oShape.Table.Cell
9、(i,j).Shape.Fill.BackColor.RGB=RGB(Red:=255,Green:=255,Blue:=255)29 With oShape.Table.Cell(i,j).Shape.TextFrame.TextRange.Font 30 .Name=宋体 31 .Size=20 32.Color.RGB=RGB(Red:=0,Green:=0,Blue:=0)33 .Bold=msoFalse 粗 34.Italic=msoFalse 斜 35.Underline=msoFalse 下划线 36 End With 37 Next j 38 Next i 39 40 Nex
10、t 41 Next 42 43 End Sub 更改 PPT 所有页面字体与页面颜色的技巧(绝对实用)(2009-11-03 22:17:41)标签:电脑 ppt 配色方案 powerpoint 文本框杂谈分类:各类资料 在评估期间,无心插柳地探索到一个新技术,就是关于 PPT 课件统一更改字体颜色和页面背景颜色的问题。我想大家都遇到过类似情况,就是有时想把 PPT 打印出来备课用,可以在纸上写写画画对课件做标注之类的,但若是你的 PPT 原本是深色背景,如我有时喜欢用深蓝背景、白色字体,这样打印时很费墨的,因为打印出来整张纸背景都是深灰色或黑色!这时你肯定想同时更改所有页面的背景颜色和字体颜
11、色(大款及不想为基金省钱的除外)。几页还好说,一页一页改就是了,但我的 PPT 往往一章都在一起,多达 100多页,怎么办?人民的智慧是无穷的!本人自己发现加上网络资料,总结了三种方法(备注:以下方法在 Powerpoint2000 中使用,对于更高版本,操作情况类似):1.最简单最好用的方法(五星推荐)!打开你要打印的 PPT 课件,点击视图黑白,OK!你发现什么了?你的所有 PPT 都变成了黑白灰色,包括图片,所有页面背景是正常白色,所有字体是黑色(包括链接),原来你用的设计模板的颜色样式这时完全不起作用了!放心去打印吧!而且你还会发现一点,就是当你关闭文件时,并无提示让你重新保存;而当你
12、再一次打开这个 PPT,你会惊喜地发现,PPT 并无改变,页面背景、字体颜色等还是你原来的色彩,也即“点击视图黑白”这样的操作完全不改变你的原文件,改变的只是视图!另外,如果你不希望打印原来模板的背景图形,可以在任一页面无内容的空白处点击右键,选择背景,选择忽略母版的背景图形,再选择全部应用即可,但这时就会改变你的原文件,不过没关系,打印完后,再改回来就是了。我写此文前搜索了大量相关网页,似乎还没看到有此方法。专利!2.方法 2。打开你要打印的 PPT 课件,在任一页面无内容的空白处点击右键,选择幻灯片配色方案,你可以点击选用标准配色方案中有黑白灰三色的方案;也可自定义配色方案颜色,把所有背景
13、色变为白色、字体变为黑色等。但如此做有一不完善之处,即那些你在做 PPT 时设置了特定填充色和特定字体颜色的文本框(不是你的 PPT 模板默认的颜色)会改成其设定颜色的反色,也即这些文本框需要你手动修改,好在一般这样的文本框不多。3.方法 3。不仔细说了,用宏语言!相信大多数人不熟悉,也不想找这个麻烦。有兴趣的可搜索网上相关信息。最后说说有关打印 PPT 的知识,还是和节省资源有关。想必你不希望一张 A4纸只打印一张 PPT,但你若用 Powerpoint 自带的打印工具在一张纸上打印多张 PPT,会发现每个 PPT 页面都很小,这时你别使用 Powerpoint 自带的打印工具设置,而应该用
14、打印机属性来设置在一张纸上打印多张 PPT;或者使用软件 fineprint,这个软件就是为一张纸上打印多张编写的,使用极其灵活,支持多种文件格式。给 PPT 全文修改字体颜色 电脑笔记 2009-02-03 13:26 阅读 180 评论 0 字号:大大中中小小说易则易,说难则难。当选中全部 PPT 页面时,字体选项是灰的,无法一次性地修改字体颜色。从“视图”-“工具栏”-“大纲”,打开大纲视图,展开全部,此处可以全选文字,修改颜色即可。此方法适合于 PPT2003 版本,其它版本可以自行尝试。补充:此方法也只能解决部分问题,有时候文本框内的文字还是无法选中。首先,将代码复制到记事本或 wo
15、rd 中,然后,打开你需要修改的 PPT,然后创建宏,再运行宏!即可实现,看图操作吧!Sub OED01()批量修改字体格式、大小和颜色 Dim oShape As Shape Dim oSlide As Slide Dim oTxtRange As TextRange On Error Resume Next For Each oSlide In ActivePresentation.Slides For Each oShape In oSlide.Shapes Set oTxtRange=oShape.TextFrame.TextRange If Not IsNull(oTxtRange)
16、Then With oTxtRange.Font .Name=楷体_GB2312 改成你需要的字体 .Size=20 改成你需要的文字大小 .Color.RGB=RGB(Red:=255,Green:=0,Blue:=0)改成你想要的文字颜色 End With End If Next Next End Sub 一次性修改所有 ppt 页面中字体的颜色和大小 有朋友问我如何一次性修改所有 ppt 页面中字体的颜色和大小,由于powerpoint 没有现成的菜单,今天索性写了一个宏,水平有限,不足之处请大家指正!Sub Macro1()For i=1 To ActiveWindow.Selecti
17、on.SlideRange.SlideNumber num=ActiveWindow.Selection.SlideRange.Shapes.Count If i=ActiveWindow.Selection.SlideRange.SlideNumber Then num=num-1 End If For j=1 To num ActiveWindow.View.GotoSlide Index:=i aaa=ActiveWindow.Selection.SlideRange.Shapes(j).Name If InStr(1,aaa,text box)0 Then ActiveWindow.S
18、election.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,Rectangle)0 T
19、hen 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 If Next j Next i End Sub 答案补充 格式-幻灯片设计-“幻灯片设计-配色方案”选一个你要的颜色文字和符号都会变颜色 不过貌似对 PPT 背景也有影响你先试下不行我再研究研究 答案补充 额对背景没影响的可行