|
|
在已经完成的PPT中，选择性的将所有8号字批量改为10号
各位：我是个PPT新手啊~~~
在完成了50多页的PPT后，领导要求改已经完成的字号，晕哇，即
1、将所有14号都改为16号字体，黑体，
2、将所有10号都改为8号，灰色字体
我要疯了，我做的时候没有使用PPT母版啊，都是在空白模板上操作的！
网上找了一个有一个统一将所有字体更改的宏：
Sub 统一字体() '批量修改字体格式、大小和颜色
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
.Size = 12 '改成你需要的文字大小
.Bold = msoFalse '不是粗体
.Shadow = msoFalse '不带阴影
.Emboss = msoFalse
End With
End If
Next
Next
End Sub
想问一下各位大侠，有选择性修改的宏吗？ |
|
