批量修改PPT字体颜色、大小以及行间距的方法.docVIP

批量修改PPT字体、颜色和行间距的方法 更改ppt字体的最简单的方法： 在ppt的普通视图中，点击左边一张ppt，然后按Ctrl+A全选所有幻灯片。 在“格式”菜单中选择“替换字体”，分别选中需要替换的字体和替换后的字体，确定即可。 如果需要同时批量修改字体、文字大小和颜色，那么真的需要用到宏了。可以使用下面这段宏： Sub?OED01()Dim?oShape?As?ShapeDim?oSlide?As?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?=?楷体_GB2312???????更改为需要的字体?????.Size?=?20???改为所需的文字大小?????.Color.RGB?=?RGB(Red:=255,?Green:=0,?Blue:=0)?改成想要的文字颜色，用RGB参数表示? ? End?With??????????End?If???Next???NextEnd?Sub 如果需要同时批量修改字体、文字大小、颜色，则需要按下ALT+F11，打开VBE对话框，单击插入——模块，复制下面的代码，按F5键运行就可以完成PPT行间距设置。 Sub ChangeTextFont() Set pages = ActivePresentation.Slides.Range pageCount = pages.Count 第一页和最后一页跳过 For i = 2 To pageCount - 1 DoEvents ActiveWindow.View.GotoSlide Index:=i shapeCount = ActiveWindow.Selection.SlideRange.Shapes.Count For j = 1 To shapeCount ActiveWindow.Selection.SlideRange.Shapes(j).Select shapeType = ActiveWindow.Selection.SlideRange.Shapes(j).Type 1 - 自选图形 7 - 公式 13 - 图片 14 - 占位符 15 - 艺术字 17 - 文本框 19 - 表格 Debug.Print shapeType Select Case shapeType Case 17 Set txtRange = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange txtRange.Select If txtRange.Text Then 设置字体为宋体, 24号 With txtRange.Font .Name = 宋体 .Size = 24 End With 设置段落格式为1.3倍行距 With txtRange.ParagraphFormat .SpaceWithin = 1.3