如何将PPT字体由 微软雅黑(正文) 快速替换为 微软雅黑

queenie_jing

背景：外发PPT，部分图表默认用的主题字体：微软雅黑(正文)

PPT接收者需要将此份PPT汇总到一份主题字体为等线的报告中。
如何保持我的图表字体为微软雅黑不变，而非相应的调整为等线。

即如何将PPT字体由 微软雅黑(正文) 全部替换为 微软雅黑

songying2021

如果复制粘贴的话，右键选择保留原格式

也可以使用幻灯重用功能

shireabcd

可以试试？
Sub 调整字体格式0
  dim Sha  as shape
  dim sld as slide
  Dim pre As Presentation
      Set pre= ActivePresentation
            For Each sld In pre. Slides
        For Each sha In sld. Shapes
                 On Error Resume Next
                  With sha.TextFrame.TextRange. Font
                     .NameFarEast ="微软雅黑”
                  End With
                Next
            Next
            Set pre =Nothing
End Sub