ppt怎么设置黑色字

1.请老师帮忙如何一次性地将PPt里的字体改成黑色的

PPT我不擅长，但我可以用宏帮你一次搞定。同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：

Sub test()

Dim i, j As Integer

For i = 1 To ActivePresentation.Slides.Count

For j = 1 To ActivePresentation.Slides(i).Shapes.Count

ActivePresentation.Slides(i).Shapes(j).TextFrame.TextRange.Font.Color = vbBlack

Next

Next

End Sub

在此界面直接按F5运行此宏，完成。