|
|
请问以下代码为什么无法修改字体，只能改变字的大小和颜色。包括形状中的和占位符中的文字
版本：OFFICE2013
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 = "隶书" '改成你需要的字体
.Size = 30 '改成你需要的文字大小
.Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) '改成你想要的文字颜色
End With
End If
Next
Next
End Sub
Sub 批量改PPT字体属性工具()
Dim mySlide As Slide
Dim myShape As Shape
Dim myRng As TextRange
With ActivePresentation
For Each mySlide In .Slides
For Each myShape In mySlide.Shapes
If myShape.HasTextFrame Then
Set myRng = myShape.TextFrame.TextRange
myRng.Font.Name = "微软雅黑"
myRng.Font.Color.RGB = RGB(0, 0, 255)
End If
Next
Next
End With
End Sub |
|
