如何批量修改ppt字体大小及颜色(1).doc

《如何批量修改ppt字体大小及颜色(1).doc》由会员分享，可在线阅读，更多相关《如何批量修改ppt字体大小及颜色(1).doc（7页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-date如何批量修改ppt字体大小及颜色(1)如何批量修改ppt字体大小及颜色(1)如何修改Powerpoint所有文字字体，批量修改ppt字体大小及颜色首先，将代码复制到记事本或word中，然后，打开你需要修改的PPT，然后创建宏，再运行宏！即可实现，看图操作吧！Sub OED01()批量修改字体格式、大小和颜色Dim oShape As ShapeDim oSlide A

2、s SlideDim oTxtRange As TextRangeOn Error Resume NextFor Each oSlide In ActivePresentation.Slides For Each oShape In oSlide.Shapes Set oTxtRange = oShape.TextFrame.TextRange If Not IsNull(oTxtRange) Then With oTxtRange.Font .Name = 微软雅黑 .Size = 20 .Color.RGB = black End With End If Next NextEnd Sub/

3、更改具备相同文字区域的批量修改（跟据上面的例字整理所得）Sub aa() 宏由 wsqxushui 创建，日期 2011-3-16。Dim oShape As ShapeDim oSlide As SlideDim oTxtRange As TextRangeOn Error Resume NextFor Each oSlide In ActivePresentation.Slides遍历所有的幻灯片 Set oShape = oSlide.Shapes(Text Box 4)每个幻灯片中文字区域 Set oTxtRange = oShape.TextFrame.TextRange每个区域中文字 If Not IsNull(oTxtRange) Then With oTxtRange.Font .Name = 宋体 改成你需要的字体 .Size = 14 改成你需要的文字大小 .Color.RGB = black 改成你想要的文字颜色 End With End If Next End Sub-