PPT2013如何批量修改幻灯片的字体段落

宇能分享 2016-12-12 09:41:10

　　要批量修改PPT里所有幻灯片的字体段落格式，目前只有通过宏来实现，网上有很多代码，但是都太乱，还有很多错误，于是笔者自行整理并试验，形成如下宏代码，可以满足绝大部分修改要求。那么接下来请大家跟学习啦小编来编辑一下代码吧。

　　PPT2013批量修改幻灯片的字体段落

　　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

　　.NameFarEast = "微软雅黑" '设置中文字体

　　.Name = "Calibri" '设置英文字体

　　.Size = 16 '设置字体大小

　　.Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) '设置字体颜色

　　End With

　　With oTxtRange.ParagraphFormat

　　.SpaceWithin = 1 '设置行距

　　.SpaceBefore = 0 '设置段前间距

　　.SpaceAfter = 0 '设置段后间距

　　End With

　　End If

　　End Sub