文档介绍：ppt 中如何使用宏我有一些 ppt ,我想把里面的字体全部设置成黑体,白色,如何用宏做到?给段编码也成,附上简短教程。谢谢了利用宏批量改变字体在视图中选择宏(早期版本可能要在插入中找),输入任意的宏名,点击创建。在新代码窗口中,删除原来的内容,并复制以下内容,然后运行宏(若不能运行, 请看下面)。此时工作已经全部完成了。 Sub myfont() Dim oShape AsShape Dim oSlide AsSlide Dim oTxtRange AsTextRange OnError Resume Next '之后的代码就算出错也会继续执行 For Each oSlide =msoFalse '使用幻灯片母版背景 For Each oShape '文本框字体设置 With '.Name ="宋体"'.Size =20 . =RGB(Red:=0, Green:=0, Blue:=0) '.Bold =msoFalse ' =msoFalse ' =msoFalse '下划线 End With '文本框背景色用幻灯背景填充 =0 '表格字体设置 =RGB(Red:=255, Green:=255, Blue:=255) '底色 For i= For j= (i, j). =RGB(Red:=255, Green:=255, Blue:=255) With (i, j). '.Name ="宋体"'.Size =20 . =RGB(Red:=0, Green:=0, Blue:=0) '.Bold =msoFalse '粗'.Italic =msoFalse '斜'.Underline =msoFalse '下划线 End With Next jNext iNext Next End Sub 注意: 。如:表格的内嵌,项目符号编号,图片等。前两项仍然需要手动修改颜色。不能运行宏的解决办法点击左上角菜单,选择 PPT 选项信任中心->宏设置,选中启用所有和信任对 VBA 的访问,确定。然后重启 PPT 即可。评论(0) 00 其他回答(1) 热心问友 2012-01-08 PPT 是一款既简单又实用的软件,用好了可以做出很好的课件,怕自己忘记了, 特在这里做点小结 PPT 文稿,则直接新建→然后