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

情感  点击:   2019-06-12

  要批量修改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

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

https://m.ahtongyi.com/qg/125189/


推荐访问:如何批量修改ppt字体
相关文章
推荐内容
上一篇:ppt绘制跷跷板的方法步骤图
下一篇:ppt2013怎么制作录音旁白
Copyright 爱华学习网 版权所有 All Rights Reserved