有时候由于工作需要，常在PPT中应用个性化模板，那么在PPT中如何新建自定义PPT主题呢？我们一起来看看吧！首先打开PPT演示文稿，创建四张空白文档（连按四下enter键），点击工作栏【视图......
2022-05-05 183 自定义PPT主题
PPT幻灯片的三种批量调整行间距教程
PPT教程
2022-01-07 22:05:34
调整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
相关文章
- 详细阅读
-
PPT中批量插入图片三种方法详细阅读
我们有时候在使用PPT过程中需要在PPT中批量插入图片三种方法，你知道怎样在PPT中批量插入图片吗？今天小编就教一下大家在PPT中批量插入图片三种方法。一、把多张图片批量插入到一张幻灯......
2022-05-05 355 PPT批量插入图片
- 详细阅读
-
如何在PPT中绘制倒金字塔的逻辑表达效果详细阅读
如何在PPT中绘制倒金字塔的逻辑表达效果老规矩，方法看看效果。是一个倒金字塔逻辑思路表达，表达经过层层筛选总结，最后合作得以实现的表达。这种有立体的环形的金字塔怎么绘制呢？......
2022-05-05 491 PPT绘制倒金字塔效果
-
如何将电脑上的图片填充为PPT背景详细阅读
用PPT演示文稿的操作中，我们会根据需要进行背景设置，如果想使用电脑上的图片，例如团队照片、网上下载的图片，我们该怎么操作呢？第一步，在页面空白处，点击右键，点击【设置背景......
2022-05-05 261 PPT背景
