一键批量修改PPT所有页面的字体样式、大小和颜色的方法 |
您所在的位置:网站首页 › 怎么把ppt中的所有字体一键改为同一种字体 › 一键批量修改PPT所有页面的字体样式、大小和颜色的方法 |
问题背景
作为大学生的我们,在为每门课程的考试备考的时候,可能像我有这样的需求:打印所有老师上课讲解用到的PPT,这样可以在几天时间内临时抱佛脚通过考试。打印PPT的技巧就是一面纸张上打印2x3页PPT,同时这也导致每一页PPT内容较小,因此就需要每页PPT的字体样式为正规样式(如:微软雅黑)、大小尽量要大(如:字号24)、颜色要深(如:黑色),这样能保证我们看得清每一页较小的PPT。 我们可以在具体的某一页PPT按住Ctrl+A选中全部元素(文字、图片、表格等)然后调节字体大小和颜色即可统一该页PPT的字体样式、大小、颜色。 但是PowerPoint有这样一个限制:我们不能全部选中所有的PPT页面进而如上面一页PPT一般一键设置字体样式、大小、颜色。因为当我们按住Ctrl+A选中全部PPT页面时,我们会发现字体调节等功能是灰色的,即不可设置参数状态。 那么,我们有没有办法可以实现这个需求呢?这就要用到PowerPoint的宏了。 实现步骤在PowerPoint的视图-宏中输入本次要创建的宏的名称PPT同一字体设置,创建。 在以下弹出的宏代码编辑框中,输入再下方的宏代码,输入完成后按住Ctrl+S保存。 Sub OED01() Dim oShape As Shape Dim oSlide As Slide Dim oTxtRange As TextRange On Error Resume Next For Each oSlide In ActivePresentation.Slides For Each oShape In oSlide.Shapes Set oTxtRange = oShape.TextFrame.TextRange If Not IsNull(oTxtRange) Then With oTxtRange.Font .Name = "微软雅黑" '更改为需要的字体 .Size = 24 '改为所需的文字大小 .Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) '改成想要的文字颜色,用RGB参数表示。这里代表黑色 End With End If Next Next End Sub若出现以下弹框,选择是。 再次点击PowerPoint的视图-宏,选中我们刚编辑好的宏,再点击“运行”,即可完成一键批量修改PPT所有页面的字体样式、大小和颜色。 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |