问题背景
作为大学生的我们,在为每门课程的考试备考的时候,可能像我有这样的需求:打印所有老师上课讲解用到的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 ShapeDim oSlide As SlideDim oTxtRange As TextRangeOn Error Resume NextFor Each oSlide In ActivePresentation.SlidesFor Each oShape In oSlide.ShapesSet oTxtRange = oShape.TextFrame.TextRangeIf Not IsNull(oTxtRange) ThenWith oTxtRange.Font.Name = "微软雅黑" '更改为需要的字体.Size = 24 '改为所需的文字大小.Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) '改成想要的文字颜色,用RGB参数表示。这里代表黑色End WithEnd IfNextNextEnd Sub
若出现以下弹框,选择是
。
再次点击PowerPoint的视图
-宏
,选中我们刚编辑好的宏,再点击“运行”,即可完成一键批量修改PPT所有页面的字体样式、大小和颜色。