ppt行间距的三种方法来设置PPT文本框行间距 |
您所在的位置:网站首页 › ppt文本怎么调行距 › ppt行间距的三种方法来设置PPT文本框行间距 |
PPT中设置段落行间距,可以改善PPT的美观效果。ppt行间距怎么调呢?如果是很少的一两个文本款里的文字行间距,直接通过行距命令可以完成,如果是几百张PPT,都需要调整PPT行间距,那么使用VBA代码会更加明智快捷。ig8office教程网 ppt行间距设置方法一:ig8office教程网 选中需要调整的文字——单击菜单“格式”——“行距”命令。打开行距对话框,按需设置行间距就OK。ig8office教程网 ppt行间距设置方法二:ig8office教程网 ppt行间距也可以通过组合键来打开行距对话框,ALT+O+S。ig8office教程网 ppt行间距设置方法三:ig8office教程网 如果是好几百张PPT就使用下面的代码完成。按下ALT+F11,打开VBE对话框,单击插入——模块,复制下面的代码,按F5键运行就可以完成PPT行间距设置。ig8office教程网 Sub ChangeTextFont() ig8office教程网Set pages = ActivePresentation.Slides.Range ig8office教程网pageCount = pages.Count ig8office教程网'第一页和最后一页跳过 ig8office教程网For i = 2 To pageCount - 1 ig8office教程网DoEvents ig8office教程网ActiveWindow.View.GotoSlide Index:=i ig8office教程网shapeCount = ActiveWindow.Selection.SlideRange.Shapes.Count ig8office教程网For j = 1 To shapeCount ig8office教程网ActiveWindow.Selection.SlideRange.Shapes(j).Select ig8office教程网shapeType = ActiveWindow.Selection.SlideRange.Shapes(j).Type ig8office教程网'1 - 自选图形 ig8office教程网'7 - 公式 ig8office教程网'13 - 图片 ig8office教程网'14 - 占位符 ig8office教程网'15 - 艺术字 ig8office教程网'17 - 文本框 ig8office教程网'19 - 表格 ig8office教程网'Debug.Print shapeType ig8office教程网Select Case shapeType ig8office教程网Case 1, 14, 17 ig8office教程网Set txtRange = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange ig8office教程网txtRange.Select ig8office教程网If txtRange.Text "" Then ig8office教程网'设置字体为宋体, 24号 ig8office教程网With txtRange.Font ig8office教程网.Name = "宋体" ig8office教程网.Size = 24 ig8office教程网End With ig8office教程网'设置段落格式为1.3倍行距 ig8office教程网With txtRange.ParagraphFormat ig8office教程网.SpaceWithin = 1.3 ig8office教程网End With ig8office教程网End If ig8office教程网Case 7, 13, 15 ig8office教程网Case 19 ig8office教程网End Select ig8office教程网Next j ig8office教程网Next i ig8office教程网End Sub ig8office教程网ig8office教程网 |
今日新闻 |
点击排行 |
|
推荐新闻 |
图片新闻 |
|
专题文章 |
CopyRight 2018-2019 实验室设备网 版权所有 win10的实时保护怎么永久关闭 |