批量修改PPT所以文字大小 颜色 字体 vba方法

2019年12月2日 | 标签:
批量修改PPT所以文字大小 颜色 字体 vba
    只需要将以下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
批量修改PPT所以文字大小 颜色 字体 vba反复
    只需要将以下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
发表评论 | Trackback
目前还没有任何评论.