不能批量替換字体

心无置所

我的PPT不能批量替换图片，我想从宋体替换成微软雅黑 ，和我的系统是繁体的office也是繁体的有关系么 但是我有安装简体字库啊 请各位大神帮我看看

dmzdmz130

选中你要替换的文字（注意时拉黑选中，不能只选中表格），看图




楼主最好检查一下你pwerpoint的语言首选项，我看到你发的图片里左下角显示是韩文。

蓝色水晶

可是我的電腦就不能轉換 打開后沒有雅黑選項   我字庫中有雅黑的字體 但是雅黑和新細明體不能互相轉換  麻煩幫我在看看 謝謝

daching

Sub OED01()
Dim Shape As Shape
Dim Slide As Slide
Dim TxtRange As TextRange
On Error Resume Next
For Each Slide In ActivePresentation.Slides
   For Each Shape In Slide.Shapes
          Set TxtRange = Shape.TextFrame.TextRange
          If Not IsNull(TxtRange) Then
         With TxtRange.Font
             .Name = "新細明體"
             .Size = 15
             .Color.RGB = RGB(Red:=0, Green:=125, Blue:=255)
          End With
          End If
   Next
   Next
End Sub
按照這個代碼執行 字號都變了 但是 字體不變啊 哎 ……

lhdking

我也遇到了相同的情况，经过无数次的实验，证明：
   如果是office2010，
    shape.type为1、14、15、17（如自选图形、placeholder等）的，字体是无法通过VBA操控的，
    而shape.type为12的，则可以操控。
  而office2003则没有这种怪事。
不知同仁们是否由此体验？

chenagain

我遇到的问题已经自我解决。
你不妨这样试试：
将" .Name = "新細明體""改为:
.namefareast ="新細明體"
若成功，告我一声。

yudamao

谢谢老师们的分享，正在学习中！！！！！！！！！！！！