如何批量修改PPT字体、大小、颜色(转)

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

    只需要将以下VBA代码中红色字体，替换成需要更改的字体参数，然后将修改完成的VBA代码放入VBA编辑器中运行即可！只适合PPT2007及其以上版本！

 

Sub change()

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 = 15                                         \'改为所需的文字大小

        .Color.RGB = RGB(Red:=255, Green:=120, Blue:=0)   \'改成想要的文字颜色，用RGB参数表示 

      End With

      End If

    Next

 Next

End Sub

 

http://blog.sina.com.cn/s/blog_49f78a4b0102e22i.html