如何批量修改PPT字体、大小、颜色
发布网友
发布时间：2022-02-23 17:38
共1个回答
热心网友
时间：2022-02-23 19:07
只需要将以下VBA代码中红色字体，替换成需要更改的字体参数，然后将修改完成的VBA代码放入VBA编辑器中运行即可！只适合PPT2007及其以上版本！Sub change()Dim oShape As ShapeDim oSlide As SlideDim oTxtRange As TextRangeOn 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 NextEnd Sub
