电脑学院 休闲娱乐 英语语法大全 爆笑广场 特色软件 特色网站 图书推荐 文史天地 网址导航 工具网站 试卷分析 述职报告 科组计划 备课组计划 班主任计划 [趣味短信]
网文拾萃 教育科研 休闲搞笑视频 健康饮食 美美图片 纯纯音乐 试卷分析 驱动程序 学法漫谈 励志人生 学科学法 个人总结 级组总结 班主任总结 备课组总结 [高考志愿]
首页 >> 休闲 >> 电脑学院 >> 阅读或下载  

如何批量修改ppt字体颜色、大小

时间:2019-08-13 12:45:15 点击:

::本站资源下载帮助::

需要同时批量修改字体、文字大小和颜色,需要用到宏了。可以使用下面这段宏:
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 = "楷体_GB2312"       '更改为需要的字体
             .Size = 20       '改为所需的文字大小
             .Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) '改成想要的文字颜色(黑色),用RGB参数表示
          End With
          End If
   Next
   Next

End Sub


Sub OED03()
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
          .Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) '改成黑色,用RGB参数表示
          End With
          End If
   Next
   Next
End Sub


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
           
             .Color.RGB = RGB(Red:=0, Green:=0, Blue:=255) '改成蓝色,用RGB参数表示
          End With
          End If
   Next
   Next
End Sub

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
           
             .Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) '改成白色,用RGB参数表示
          End With
          End If
   Next
   Next
End Sub


原来的ppt文字不是黑色的,通过宏将该ppt文件中的100多页ppt文字改为黑色(注意是将某个颜色的字,比如桔红色的字改为黑色,不是所有文字变成黑色)。如果手动修改颜色,工作量太大,偷个懒,写个程序,让ppt中的这种文字颜色统一改变成黑色。





PowerPoint 2007 隐藏的功能 录制宏

使用快捷键 Alt+T -> M -> R 能够调出隐藏的功能 录制宏
再使用一次 Alt+T -> M -> R 停止录制

ppt对操作的录制很有限,例如更改文本框位置、字体改变等动作不能被捕捉到




宏代码如下:

Sub yw()
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 = "楷体_GB2312"                             '更改为需要的字体
        .Size = 18                                         '改为所需的文字大小
        If .Color.RGB = RGB(255, 120, 0) Then
        oTxtRange.Font.Color.RGB = RGB(Red:=0, Green:=0, Blue:=0)   '改成想要的文字颜色,用RGB参数表示
        End If
      End With
      End If
    Next
Next
End Sub

RGB颜色查询对照表

1       2

 
  • 上一篇:如何去word的水印
  • 下一篇:没有了
  • 备课吧(www.123ppt.net) © 2019 版权所有 All Rights Reserved.
  • 联系我们 粤ICP备10007840号