ppt vba代码 判断字号大小，并修改

好的，下面是针对判断PowerPoint文本框字号大小并修改的VBA宏代码：

Sub ChangeFontSize()
    Dim sld As Slide
    Dim shp As Shape
    
    '设置字号的阈值
    Dim fontSizeThreshold As Integer
    fontSizeThreshold = 18
    
    '遍历每一页幻灯片
    For Each sld In ActivePresentation.Slides
        '遍历每个形状
        For Each shp In sld.Shapes
            '判断形状是否为文本框
            If shp.HasTextFrame Then
                '获取当前字号大小
                Dim currentFontSize As Integer
                currentFontSize = shp.TextFrame.TextRange.Font.Size
                
                '判断字号是否大于阈值
                If currentFontSize > fontSizeThreshold Then
                    '修改字号为新的值
                    shp.TextFrame.TextRange.Font.Size = currentFontSize - 2
                End If
            End If
        Next shp
    Next sld
End Sub

使用方法：

1. 打开PowerPoint文件，按下Alt+F11，打开VBA编辑器；
2. 在VBA编辑器中，按下Ctrl+R，打开“Microsoft Visual Basic for Applications”窗口；
3. 将上述代码复制粘贴到窗口中；
4. 修改代码中的字号阈值和新的字号大小为自己想要的值；
5. 按下F5执行代码，等待执行完毕即可。

需要注意的是，该VBA宏会将每一页幻灯片中所有文本框字号大于阈值的文本框的字号都修改为新的字号大小。如果需要针对某些文本框进行单独设置，可以在代码中添加相应的判断条件。