美文网首页
PPT修改字体、颜色、大小宏代码

PPT修改字体、颜色、大小宏代码

作者: datouhuang | 来源:发表于2019-11-15 10:32 被阅读0次

虽然看上去其貌不扬

但是短短几行代码,却可以给你提高极大的工作效率

Sub 改字体()

Dim OShape As Shape

Dim OSilde As Slide

Dim OTxtRange As TextRange

On Error Resume Next

For Each OSlide In ActivePresentation.Slides

    For Each OShpae In OSlide.Shapes

        Set OTxtRange = OShape.TextFrame.TextRange

        If Not IsNull(OTxtRange) Then

        With OTxtRange.Font

            .Name = "Times New Roman"

            .Size = 20

            .Color.RGB = RGB(Red:=0, Green:=0, Blue:=0)

            End With

            End If

    Next

    Next

End Sub

相关文章

网友评论

      本文标题:PPT修改字体、颜色、大小宏代码

      本文链接:https://www.haomeiwen.com/subject/rcpjictx.html