PPT幻灯片的三种批量调整行间距教程
发布时间：2023-10-11 01:17:37
调整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.RangepageCount = pages.Count'第一页和最后一页跳过For i = 2 To pageCount – 1DoEventsActiveWindow.View.GotoSlide Index:=ishapeCount = ActiveWindow.Selection.SlideRange.Shapes.CountFor j = 1 To shapeCountActiveWindow.Selection.SlideRange.Shapes(j).SelectshapeType = ActiveWindow.Selection.SlideRange.Shapes(j).Type'1 – 自选图形'7 – 公式'13 – 图片'14 – 占位符'15 – 艺术字'17 – 文本框'19 – 表格'Debug.Print shapeTypeSelect Case shapeTypeCase 1, 14, 17Set txtRange = ActiveWindow.Selection.ShapeRange.TextFrame.TextRangetxtRange.SelectIf txtRange.Text <> "" Then'设置字体为宋体, 24号With txtRange.Font.Name = "宋体".Size = 24End With'设置段落格式为1.3倍行距With txtRange.ParagraphFormat.SpaceWithin = 1.3End WithEnd IfCase 7, 13, 15Case 19End SelectNext jNext iEnd Sub
0
投稿猜你喜欢
电脑的任务栏可以说是许多用户经常会使用到的，我们可以快速的打开一些正在运行的窗口程序。但是最近有不少用户开机发现自己的电脑下方的任务栏不显示- Excel怎么巧用辅助列制作工资条？excel表格中想要制作工资表，之前我们已经介绍了很多相关的知识，下面我们就来看看使用辅助列制作工资表的
- Win11显示麦克风未插上怎么办？一些使用Win11系统的小伙伴在系统插入麦克风的时候，发现屏幕显示麦克风未插上，无法使用麦克风，那想要解决
- Web服务器的使用，让用户们实现了局域网内资源的共享，利用Web服务器，用户可以将自己的信息上传到服务器端，不仅实现了共享，而且还有效地达到
- Notepad++怎么设置背景颜色和字体颜色教学。使用Notepad++软件的时候，有用户需要对软件中输入的文字进行背景色的更改，并且想要将
- 相信你们家人跟小编的家人一样都很喜欢使用全民k歌这款唱歌软件，你知道全民k歌中怎么加入家族的吗？接下来我们一起往下
- 许多用户在使用电脑的时候都会安装安卓模拟器，导致不少用户在准备更新升级Windows11系统的时候，电脑提示virtualbox不兼容。但是
- 用户在使用搜狗输入法这款软件的时候会想要顺便看看天气提醒，那么搜狗输入法的天气按钮在哪里呢？现在小编告诉你搜狗输入法怎么开启天气按钮，有需要
- 具体操作如下：首先，我们来设计一个场景，下表中只要下拉选择Ｂ3单元格的产品，就会自动统计显示对应产品的订单金额。我们还是基于动态数据区域的统
- PPT怎么使用SmartArt排版图片？PPT中想要排版图形，需要使用SmartArt，该怎么使用呢？下面我们就来看看详细的教程，需要的朋友
- 我们在朋友圈中发过的照片，可以在微信“相册”中找到，下面给大家简单的介绍一下步骤：1.打开微信，点击【我】2.点击【相册】 3.效
- Excel电子表格是不兼容WPS格式的表格的，但某些时候工作需要使用Excel电子表格软件，这时我们就需要将wps表格转换成Excel电子表
- 为什么我的iPhone手机无法安装捷径呢？今天小编来给大家讲一下捷径无法安装的原因和解决办法。捷径安装其实非常简单，但还有不少网友经常反馈无
- 当一个excel工作表被共享后，可以由多人共同编辑填写这个工作表的数据，这时候为了防止不留神修改了他人负责填写的工作表区域，就可以对exce
- ppt表格中插入的图片怎么调整格式？ppt表格中插入了图片作为底纹，想要设置图片的样式，该怎么设置呢？下面我们就来看看详细的教程，需要的朋友
- PPT2013在“插入”选项卡中系统提供了各种各样的形状，用户可根据需要在PPT 2013幻灯片中插入形状，并且可以在形状中输入文本内容，具
- 宝川电子相册是一款功能强大的电子相册制作工具，很多用户都喜欢用它记录生活，你知道宝川电子相册怎么控制相片时间的吗？接下来我们一起往下看看宝川
- Word软件中添加pdf格式图片会压缩图片质量解决方法分享。不少用户发现自己在添加图片格式内容到文档里面的时候，图片的质量会变得非常模糊，非
- Excel2003表格中怎么制作下拉列表？excel表格中想要添加一个下拉列表，该怎么制作呢？下面我们就来看看excel下拉列表的制作方法，
- excel总是自动变成日期格式的解决办法如下：首先，选中单元格，右键，点击设置单元格格式 选中文本
