user_qjbxw 发表于 2016-4-12 13:26:04

幻灯片字体批量加粗

因为上课需要，经常需要把字体改为黑体，加粗，通过网络学习，知道了用宏可批量修改字体和颜色，可无法批量加粗字体。现特请教各位高手帮忙，谢谢！

gevlaige 发表于 2016-4-12 15:08:11


[*]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 = "黑体"       '改成你需要的字体
[*]             .Bold = True
[*]             .Size = 20       '改成你需要的文字大小
[*]             .Color.RGB =black '改成你想要的文字颜色
[*]          End With
[*]          End If
[*]   Next
[*]   Next
[*]End Sub

复制代码

gc2030 发表于 2016-4-12 15:58:30

操作环境Windows 7+ Microsoft Office 2003

jdflfl87 发表于 2016-4-12 16:04:26

非常感谢，真的可以， wudixin96，谢谢您
页: [1]
查看完整版本: 幻灯片字体批量加粗