ppt行间距的三种方法来设置PPT文本框行间距
发布时间：2022-03-26 23:05:25
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
0
投稿猜你喜欢
提高wps表单数据录入速度的方法；打开WPS office 2012表单后，使用鼠标框选择要填充数据的范围。如图所示- 你还在为Excel中Dsum函数的使用方法而苦恼吗，今天小编教你Excel中Dsum函数的使用方法，让你告别Excel中Dsum函数的使用方
- 在处理表格数据时，经常需要使用到不同的公式，比如数据汇总，单元格引用等等。如果在一张表中使用公式时，比如用sum合计汇总，如果计算区域还没有
- Win7电脑连接手机时弹出adb.exe停止工作怎么办？相信有很多用户都喜欢将手机连接在电脑上面进行一些操作，但是通过手机连接电脑可能会碰到
- 去哪儿旅行忘记登录密码怎么办?现在的旅行软件有很多，去哪儿旅行就是其中的一款。最近有用户问小编，忘记了去哪儿旅行的登录密码，但是不知道怎么找
- ltmoh.exe是Lucent公司呼出和呼入控制相关进程进程文件： ltmoh or ltmoh.exe 进程名称： Lucent Tec
- 下面介绍用EXCEL截屏的，希望本指南能帮到大家。01、我们点开要截屏的网页，比如，搜狗指南的首页。02、接着，再打开EXCEL工作表；再点
- 行间距是控制段落中行与行之间的距离，不同种类的文档应有不同的行间距，数值越大，行与行之间的间隔就越大，反之，则相反。那么，wps行间距如何设
- 有的win10用户在重装系统之后发现自己的桌面图标全部不见了，这种情况要怎么办呢？下面小编带来win10找回桌面图标方法，希望对大家有所帮助
- Win10如何禁用应用商店推广功能？很多朋友们还不会，下面小编就给大家带来Win10禁用应用商店推广功能的方法，一起来看看吧Win10如何禁
- 我们在使用Win10电脑的过程中，有时候会遇到声卡驱动出现问题，这时候我们就要进行更新，而更新之前我们需要查看电脑的声卡型号。那么，要如何查
- excel输入大于等于号的方法，今天给大家分享的是excel公式中的大于等于怎么输入。我们知道直接输入一个大于号在输入一个等于号就可以了：“
- Excel表格数据怎么制作百分比堆积图？excel中的数据想要清楚的表达出来，所以制作了百分比图，大多数人并不知道它是做什么用的，我们用一个
- 很多朋友在回应了自己的计算机卡后回应了win10的正式版，这主要是因为您的c盘占用率太高，导致运行不流畅，您必须知道Win10附带的最实用的
- wps怎么制作一个红色的电子印章？wps文章中需要一个印章，该怎么做呢？今天我们就来看看使用wps画电子印章的教程，需要的朋友可以参考下wp
- 最近有Win7系统用户反映，Windows Defender更新出现错误，Windows Defender 定义更新–KB2267602 （
- win10系统能够更新后很多用户都第一时间选择了更新，但是更新完成后都发现变卡了，下面就为你们带来了win10更新完后变卡解决方法，如果你也
- 功能介绍：PowerPoint 2013音频/视频播放功能是直接植入PPT内部的功能，再也不用打开别的播放器进行播放。PPT制作节约了不少时
- 在最近版本的Win10系统中，已经可以支持使用虚拟机。但是有的用户却发现，虚拟机中没有办法连接网络，没有网络的虚拟机，使用效果大打折扣。下面
- 最新消息，win10预览版10061自制中文iso系统镜像下载地址来了啊，大家久等了，小伙伴快奔走相告喏，有兴趣的的小伙伴不妨下载体验一下最
