您的IP:
恒谦首页|设为首页|收藏本站|导航|留言|客户服务|教育装备信息库
如何一次性更改ppt中的全部字体?
来源:网络来源 时间:2012-2-22 11:20:00 点击: 今日评论:

如何一次性更改ppt中的全部字体?起初这个我也不知道,也是在百度上搜索得来的。非常感谢大家!当然,我也要把这样的好东西共享一下,为大家节约时间!

        点击ppt中的工具里的宏选项里的宏。然后输入你要创建的宏名点击创建按钮,在出现的页面中将下面一段代码覆盖掉原先的代码:

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
             .Name = "楷体_utf-8"       '改成你需要的字体
             .Size = 20       '改成你需要的文字大小
             .Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) '改成你想要的文字颜色
          End With
          End If
   Next
   Next
End Sub
 

新闻评论

正在加载评论列表...
评论表单加载中...
[关于恒谦] – [数字校园] – [法律声明] – [业务] – [诚邀合作] – [人才招聘] – [联系我们]
举报邮箱:[email protected] 客户服务专线:400-715-6688 客服QQ:4007156688 陕ICP备05004659号
金沙所有登入网址 版权所有 Copyright © www.yuzhoudz.com All Rights Reserved 本站常年法律顾问:吴海龙律师 陕西德伦律师事务所

金沙平台登录