none
Office PowerPoint 的VBS宏 无法改变字体。请帮助! RRS feed

  • 问题

  • 谁对Office PowerPoint 的VBS宏比较熟悉,帮我看看,以下程序。测试了很久,修改字体时,只是英文字符修改成功,而汉字则不会变化。@微软帮助和支持 .我的环境是Windows 10  OFFICE PowerPoint 2016。

    Sub 统一字体() 
    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 = "微软雅黑"     
                 .Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) 
                 .Bold = msoFalse '不是粗体
                 .Shadow = msoFalse '不带阴影
                 .Emboss = msoFalse
              End With
              End If
       Next
       Next
    End Sub

    2016年7月12日 4:25