电脑知识网 > 软件应用 > ppt技巧 > 正文

PPT技巧幻灯片的三种批量调整行间距教程

网络整理 2017-12-26 11:43

调整PPT技巧文字段落中的行间距，可以改善PPT技巧的美观效果。那么，PPT技巧的行间距该如何调整呢？如果PPT技巧内只有一两行文字，我们可以通过行间距命令来完成，但如果几百张PPT技巧，都需要调整行间距，那么使用VBA代码会更加明智快捷。

ppt行间距设置方法一：

选中需要调整的文字——单击菜单“格式”——“行距”命令。打开行距对话框，按需设置行间距就OK。

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

Tags：

转载请标注：电脑技术网——PPT技巧幻灯片的三种批量调整行间距教程

上一篇：PPT技巧幻灯片打不开的原因与解决方法
下一篇：PPT技巧中制作海洋效果艺术字的方法

电脑知识网 > 软件应用 > ppt技巧 > 正文

PPT技巧幻灯片的三种批量调整行间距教程

ppt行间距设置方法一：

ppt行间距设置方法二：

ppt行间距设置方法三：

猜你喜欢