幻灯片字体批量加粗

user_qjbxw

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

gevlaige

• 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

操作环境  Windows 7  + Microsoft Office 2003

jdflfl87

非常感谢，真的可以， wudixin96，谢谢您