- ·上一篇:ppt制作中怎样在视频中添加音乐
- ·下一篇:word中如何设置两页横向在同一界面同时出现 如下图
在PPT里怎么样可以把所有的幻灯片里的字体、字号统一
1.在PPT里怎么样可以把所有的幻灯片里的字体、字号统一
用宏就可以解决,
SubOED01() '批量修改字体格式、大小和颜色
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 = "楷体_GB2312" '改成你需要的字体
.Size = 20 '改成你需要的文字大小
.Color.RGB = RGB(Red:=255,Green:=0, Blue:=0) '改成你想要的文字颜色
End With
End If
Next
Next
End Sub
2.如何修改Powerpoint所有文字字体,批量修改ppt字体大小及颜色,
首先,将代码复制到记事本或word中,
然后,打开你需要修改的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 = "楷体_GB2312" '改成你需要的字体
.Size = 20 '改成你需要的文字大小
Dim oSlide As Slide
Dim oTxtRange As TextRange
On Error Resume Next
For Each oSlide In ActivePresentation.Slides '遍历所有的幻灯片
Set oShape = oSlide.Shapes("Text Box 4") '每个幻灯片中文字区域
Set oTxtRange = oShape.TextFrame.TextRange '每个区域中文字
If Not IsNull(oTxtRange) Then
With oTxtRange.Font
.Name = "宋体" '改成你需要的字体
.Size = 14 '改成你需要的文字大小
.Color.RGB = black '改成你想要的文字颜色End WithEnd IfNextEnd Sub