摘要： PPT中设置段落行间距，可以改善PPT的美观效果。ppt行间距怎么调呢？如果是很少的一两个文本款里的文字行间距，直接通过行距命令可以完成，如果是几百张PPT，都需要调整PPT行间距，那么使用VBA代码会更加明智快捷。
ppt行间距设置方法一：
选中需要调整的文字——单击菜单“格式”——“行距”命令。打开行距对话框，按需设置行间距就OK。
ppt行间距设置方法二：
ppt如何添加背景音乐呢？整个PPT文档和不同PPT添加不同的背景音乐的方法
ppt如何添加背景音乐，是一些初学PPT的朋友，经常遇到的一个问题。先来了解一下ppt背景音乐相关的知识点。默认情况下PPT添加的背景音乐只是在插入的单页PPT有效，下一页就没有背景音乐
ppt行间距也可以通过组合键来打开行距对话框，ALT O S。
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.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 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
ppt插入图片的各个细节：比如图片大小的处理、图片的批量插入、图片的处理方法等等
为了增强文稿的可视性，在PPT中插入图片是一项基本的操作。ppt如何插入图片，插入的图片太大，如何编辑图片，PPT又如何批量插入图片等等问题。本文做一个详尽的介绍。第一，ppt插入图片
