您的位置：首页 > Web前端 > CSS

批量修改PPT所有的字体样式

2016-03-17 14:19 796 查看
今天在百度文库上下载了一篇关于Orale优化的PPT，无奈下载下来文中字体大的离谱，而且页码不少，要是我一页一页Ctrl+A全选去修改，未免不是一件体力活，于是在网上找到了一段关于批量修改PPT字体的宏，修改后亲测可用，便记录下来，供参考。

具体操作方法：开发工具——宏——创建宏

将如下方法粘贴，运行即可

代码如下：

Sub ziTiEdit()
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
.Name = "楷体_GB2312"
.Size = 10
.Color.RGB = RGB(Red:=255, Green:=255, Blue:=255)
End With
End If
Next
Next
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 点击这里给我发消息
标签：  PPT 宏 字体修改 批量
相关文章推荐
新的分享
章节导航