心无置所 发表于 2017-2-6 22:09:48

不能批量替換字体

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

dmzdmz130 发表于 2017-2-6 23:27:23

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




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

蓝色水晶 发表于 2017-2-6 23:30:09

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

daching 发表于 2017-2-6 23:30:19

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 发表于 2017-2-7 01:13:51

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

chenagain 发表于 2017-2-7 01:57:57

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

yudamao 发表于 2017-2-7 02:16:00

谢谢老师们的分享，正在学习中！！！！！！！！！！！！
页: [1]
查看完整版本: 不能批量替換字体