PPT幻灯片的三种批量调整行间距教程 _知识经验

调整PPT文字段落中的行间距，可以改善PPT的美观效果。那么，PPT的行间距该如何调整呢？如果PPT内只有一两行文字，我们可以通过行间距命令来完成，但如果几百张PPT，都需要调整行间距，那么使用VBA代码会更加明智快捷。
ppt行间距设置方法一：
选中需要调整的文字——单击菜单“格式”——“行距”命令。打开行距对话框，按需设置行间距就OK 。
ppt行间距设置方法二：
ppt行间距也可以通过组合键来打开行距对话框，ALT+O+S 。
ppt行间距设置方法三：
如果是好几百张PPT就使用下面的代码完成。按下ALT+F11，打开VBE对话框，单击插入——模块，复制下面的代码，按F5键运行就可以完成PPT行间距设置。
【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

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

推荐阅读

小米怎么吃的快

男生绿裤子怎么搭配

苦螺的作用苦螺的营养价值

郎酒保质期一般多久郎酒保质期一般多长时间

甲醛|市面上“最坑”的5种鱼，多数人经常买，鱼贩子：我从不给家人吃

鹤冲天是什么茶

水鸡煲汤要放什么材料水鸡煲汤要放哪些材料

竞技二打一的基本杀法——偷梁换柱杀法

爱情公寓外传开心原力大结局

洗黄喉的方法如何清洗黄喉

怎么|多肉植物怎么叶插？多肉植物叶片的选择了解一下

黑曜石的功效与作用

抖音集音符分五亿元怎么玩

玳瑁色布偶猫好吗如何分辨玳瑁色布偶猫

火影忍者的七把鬼刀是哪几把？

长脸脸大适合什么发型女生

拒绝的近义词拒绝的近义词列述

手机停机了充话费还能用吗？

蚕豆冷冻保存方法蚕豆怎么保存冷冻

鸡蛋怎么吃最不健康？