ppt中如何使用宏 ppt宏怎么用

　　我有一些ppt，我想把里面的字体全部设置成黑体，白色，如何用宏做到?给段编码也成，附上简短教程。

　　利用宏批量改变字体

　　在视图中选择宏(早期版本可能要在插入中找)，输入任意的宏名，点击创建。

　　在新代码窗口中，删除原来的内容，并复制以下内容，然后运行宏(若不能运行，请看下面)。此时工作已经全部完成了。

　　Sub myfont()

　　Dim oShape As Shape

　　Dim oSlide As Slide

　　Dim oTxtRange As TextRange

　　On Error Resume Next ' 之后的代码就算出错也会继续执行

　　For Each oSlide In ActivePresentation.Slides

　　oSlide.FollowMasterBackground = msoFalse ' 使用幻灯片母版背景

　　For Each oShape In oSlide.Shapes

　　' 文本框字体设置

　　With oShape.TextFrame.TextRange.Font

　　' .Name = "宋体"

　　' .Size = 20

　　.Color.RGB = RGB(Red:=0. Green:=0. Blue:=0)

　　' .Bold = msoFalse '粗

　　.Italic = msoFalse ' 斜

　　.Underline = msoFalse ' 下划线

　　End With

　　oShape.Fill.Background ' 文本框背景色用幻灯背景填充

　　oShape.TextFrame.TextRange.IndentLevel = 0

　　' 表格字体设置

　　oShape.Table.Background.Fill.BackColor.RGB = RGB(Red:=255. Green:=255. Blue:=255) ' 底色

　　For i = 1 To oShape.Table.Rows.Count

　　For j = 1 To oShape.Table.Columns.Count

　　oShape.Table.Cell(i, j).Shape.Fill.BackColor.RGB = RGB(Red:=255. Green:=255. Blue:=255)

　　With oShape.Table.Cell(i, j).Shape.TextFrame.TextRange.Font

　　' .Name = "宋体"

　　' .Size = 20

　　.Color.RGB = RGB(Red:=0. Green:=0. Blue:=0)

　　' .Bold = msoFalse '粗

　　'.Italic = msoFalse ' 斜

　　'.Underline = msoFalse ' 下划线

　　End With

　　Next j

　　Next i

　　Next

　　Next

　　End Sub

　　注意： 1.以上代码相应部分可以根据需要自行修改 2.运行后可能仍有部分是彩色。如：表格的内嵌，项目符号编号，图片等。前两项仍然需要手动修改颜色。

　　不能运行宏的解决办法

　　点击左上角菜单，选择PPT选项

　　信任中心->宏设置，选中启用所有和信任对VBA的访问，确定。然后重启PPT即可。