19、VBA编程：自定义函数与决策结构

VBA编程：自定义函数与决策结构

1. 为PowerPoint创建自定义函数

在VBA编程中，我们可以为PowerPoint创建自定义函数。下面的示例函数 CheckMinFontSize 用于检查幻灯片上所有文本的字体大小是否至少为指定的最小大小，如果有字体太小，将显示一个错误消息框。

Option Explicit

Function CheckMinFontSize(objPresentation As Presentation) As Boolean

    Dim objSlide As Slide
    Dim objShape As Shape

    CheckMinFontSize = True

    For Each objSlide In objPresentation.Slides
        objSlide.Select
        objSlide.Shapes.SelectAll
        For Each objShape In Windows(1).Selection.ShapeRange
            If objShape.Type = msoPlaceholder Then
                If objShape.TextFrame.TextRange.Font.Size < 14 Then
                    CheckMinFontSize = False
                    Exit Function
                End If
            End I