已经做好了的PPT怎么批量改字体颜色?
发布网友
发布时间：2022-02-22 05:42
共3个回答
懂视网
时间：2022-02-22 10:04
ppt统一换字体颜色的方法：
【1】首先打开ppt
并且处于左边有导航的视图情况下
【2】其次
在左边的导航中
默认显示的是【幻灯片】视图
将之切换到【大纲】视图
【3】这样，就可以看到
所有的文字信息都以大纲形式显示出来了
接下来，对所有的文字进行全选
可以使用快捷键：【ctrl+A】
【4】接下来
可以对所有的文字进行操作了
可以选择需要的字体
【5】同样
还可以改变字体的大小
加粗，倾斜等
【6】最后
修改完后
切换回【幻灯片】视图
就可以看到刚刚已经修改后的效果了
热心网友
时间：2022-02-22 07:12
热心网友
时间：2022-02-22 08:30
有朋友问我如何一次性修改所有ppt页面中字体的颜色和大小，由于powerpoint没有现成的菜单，今天索性写了一个宏，水平有限，不足之处请大家指正！
Sub Macro1()
For i = 1 To ActiveWindow.Selection.SlideRange.SlideNumber
num = ActiveWindow.Selection.SlideRange.Shapes.Count
If i = ActiveWindow.Selection.SlideRange.SlideNumber Then
num = num - 1
End If
For j = 1 To num
ActiveWindow.View.GotoSlide Index:=i
aaa = ActiveWindow.Selection.SlideRange.Shapes(j).Name
If InStr(1, aaa, "text box") > 0 Then
ActiveWindow.Selection.SlideRange.Shapes(j).Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Size = 20 '改成你想要的字体大小
ActiveWindow.Selection.TextRange.Font.Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) '改成你想要的字体颜色
End If
If InStr(1, aaa, "Rectangle") > 0 Then
ActiveWindow.Selection.SlideRange.Shapes(j).Select
ActiveWindow.Selection.TextRange.Font.Size = 20 '改成你想要的字体大小
ActiveWindow.Selection.TextRange.Font.Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) '改成你想要的字体颜色
End If
Next j
Next i
End Sub
