PPT2013如何批量修改幻燈片的字體段落
PPT2013如何批量修改幻燈片的字體段落
要批量修改PPT里所有幻燈片的字體段落格式,目前只有通過宏來實(shí)現(xiàn),網(wǎng)上有很多代碼,但是都太亂,還有很多錯(cuò)誤,于是筆者自行整理并試驗(yàn),形成如下宏代碼,可以滿足絕大部分修改要求。那么接下來請大家跟學(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