怎么修改Powerpoint所有文字字体,批量修改PowerPoint幻灯片字体巨细及颜色,

1.怎么修改Powerpoint所有文字字体,批量修改ppt字体巨细及颜色,

首先，将代码复制到记事本或word中，抖客教程网，

然后，打开你需要修改的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 = "楷体_GB2312" '改成你需要的字体

.Size = 20 '改成你需要的文字巨细

Dim oSlide As Slide

Dim oTxtRange As TextRange

On Error Resume Next

For Each oSlide In ActivePresentation.Slides '遍历所有的幻灯片

Set oShape = oSlide.Shapes("Text Box 4") '每个幻灯片中文字区域

Set oTxtRange = oShape.TextFrame.TextRange '每个区域中文字

If Not IsNull(oTxtRange) Then

With oTxtRange.Font

.Name = "宋体" '改成你需要的字体

.Size = 14 '改成你需要的文字巨细

.Color.RGB = black '改成你想要的文字颜色End WithEnd IfNextEnd Sub