ppt设置字体，抄过来的。

最新推荐文章于 2024-10-27 19:55:47 发布

JECK_ケーキ

最新推荐文章于 2024-10-27 19:55:47 发布

阅读量302

点赞数

分类专栏：笔记文章标签：开发语言

原文链接：https://www.iteye.com/blog/johnson-lee-824469

版权

笔记专栏收录该内容

7 篇文章 0 订阅

订阅专栏

这段代码展示了如何通过VBA宏来批量修改PowerPoint演示文稿中的字体样式和行距。它遍历每张幻灯片，针对特定类型的形状（如自选图形、文本框等），设置字体为宋体，字号为24，并将段落行距设为1.3倍。适用于大量PPT内容的统一格式化操作。

摘要由CSDN通过智能技术生成

Sub ChangeTextFont()  
    Set pages = ActivePresentation.Slides.Range  
    pageCount = pages.Count  
  
    '第一页和最后一页跳过  
    For i = 2 To pageCount - 1  
        DoEvents  
        ActiveWindow.View.GotoSlide Index:=i  
        shapeCount = ActiveWindow.Selection.SlideRange.Shapes.Count  
  
        For j = 1 To shapeCount  
            ActiveWindow.Selection.SlideRange.Shapes(j).Select  
            shapeType = ActiveWindow.Selection.SlideRange.Shapes(j).Type  
  
            '1  - 自选图形  
            '7  - 公式  
            '13 - 图片  
            '14 - 占位符  
            '15 - 艺术字  
            '17 - 文本框  
            '19 - 表格  
            'Debug.Print shapeType  
            Select Case shapeType  
            Case 1, 14, 17  
                Set txtRange = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange  
                txtRange.Select  
  
                If txtRange.Text <> "" Then  
                    '设置字体为宋体, 24号  
                    With txtRange.Font  
                        .Name = "宋体"  
                        .Size = 24  
                    End With  
  
                    '设置段落格式为1.3倍行距  
                    With txtRange.ParagraphFormat  
                        .SpaceWithin = 1.3  
                    End With  
                End If  
            Case 7, 13, 15  
            Case 19  
            End Select  
        Next j  
    Next i  
End Sub

要设置ppt的字体，从别人那里抄过来的。

源地址

批量设置PowerPoint字体及行间距——VBA宏 - 金属狂人 - ITeye博客
https://www.iteye.com/blog/johnson-lee-824469