学习啦 > 学习电脑 > 工具软件 > 办公软件学习 > PPT制作教程 > PPT2013教程 > PPT2013如何批量修改幻灯片的字体段落

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

时间: 宇能938 分享

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

2077712