《ppt行间距批量设置方法.docx》由会员分享，可在线阅读，更多相关《ppt行间距批量设置方法.docx（3页珍藏版）》请在三一办公上搜索。
1、ppt行间距批量设置方法ppt行间距批量设置方法：如果是PPT页码就使用下面的代码完成。按下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.Selec
2、tion.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 1, 14, 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 End With End If Case 7, 13, 15 Case 19 End Select Next j Next i End Sub
