尘风飘语 发表于 2013-3-28 00:00:00

【新手实用教】如何批量修改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

user_hswgelxo 发表于 2013-3-29 19:03:08

应该加分

miaomimi 发表于 2013-4-1 00:51:07

说嘛1~~~想说什么就说什么嘛~~

zxwhatzx 发表于 2013-4-3 12:20:10

顶下再看
页: [1]
查看完整版本: 【新手实用教】如何批量修改PPT字体、大小、颜色