国产精品99精品无码视亚|久久久久成人精品免费播放动漫|色狠狠色综合久久久绯色AⅤ影视|免费无码婬片AAAA片直播孕妇|亚洲色图第一页|精品久久久一区无码AV野花影视|欧美怡春院|亚洲综合色图

學(xué)習(xí)啦 > 學(xué)習(xí)電腦 > 工具軟件 > 辦公軟件學(xué)習(xí) > PPT制作教程 > PPT2013教程 > PPT2013如何批量修改幻燈片的字體段落

PPT2013如何批量修改幻燈片的字體段落

時間: 宇能938 分享

PPT2013如何批量修改幻燈片的字體段落

  要批量修改PPT里所有幻燈片的字體段落格式,目前只有通過宏來實現(xiàn),網(wǎng)上有很多代碼,但是都太亂,還有很多錯誤,于是筆者自行整理并試驗,形成如下宏代碼,可以滿足絕大部分修改要求。那么接下來請大家跟學(xué)習(xí)啦小編來編輯一下代碼吧。

  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 = "微軟雅黑" '設(shè)置中文字體

  .Name = "Calibri" '設(shè)置英文字體

  .Size = 16 '設(shè)置字體大小

  .Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) '設(shè)置字體顏色

  End With

  With oTxtRange.ParagraphFormat

  .SpaceWithin = 1 '設(shè)置行距

  .SpaceBefore = 0 '設(shè)置段前間距

  .SpaceAfter = 0 '設(shè)置段后間距

  End With

  End If

  Next

  Next

  End Sub

2077712