PPT2013如何批量修改幻灯片的字体段落
PPT2013如何批量修改幻灯片的字体段落
要批量修改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
Next
Next
End Sub