鬼王再生百度云:PPT批量修改字体大小、颜色的宏命令

来源：百度文库编辑：中财网时间：2024/04/29 15:25:05

PPT批量修改字体大小、颜色的宏命令

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 = "宋体"       '改成你需要的字体
             .Bold = Not True     '改成你需要的字体粗细
             .Size = 31       '改成你需要的文字大小
             .Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) '改成你想要的文字颜色
          End With
          End If
   Next
   Next
End Sub
个人可以根据自己的要求对里面参数进行修改，短短的小程序。却可以给你们带来事半功倍的效果，值得朋友收藏！

PPT里能否通过宏定义批量修改文字颜色？批量修改工作组命令? 批量修改工作组命令? IE的字体大小，颜色都变了并且无法修改 IE的字体大小、颜色都变了并且无法修改图片批量修改颜色? 什么软件可以批量修改照片的背景颜色? PPT中的字体大小问题高手请教:请问一下网页字体大小,颜色,字体怎样修改图片批量修改局部颜色,怎么弄? 天下统一4的字体大小如何修改。怎么修改LUMAQQ界面的字体大小如何修改浏览网页时的字体大小图片批量修改局部颜色,怎么弄?大小一样的图片. 图片批量修改局部颜色,怎么弄?是大小一样的图片. 图片批量修改局部颜色,怎么弄?是大小一样的图片.A 如何在DOS中使用COPY命令批量修改文件名？批量修改图片的格式网站的批量修改是什么意思？修改网页字体大小修改字幕字体大小批量修改如何同时设置论坛的字体颜色字体大小？做ppt时，增加链接以后字体的颜色就变得很淡很淡而且不能再修改了有没有办法