vba powerpoint获取文本框中所有的公式 实例

您可以使用以下VBA代码在PowerPoint中获取文本框中的所有公式：

Sub GetEquations()
    Dim sld As Slide
    Dim shp As Shape
    Dim txtRng As TextRange
    Dim eq As Equation
    Dim i As Integer
    
    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            If shp.HasTextFrame And shp.TextFrame.HasText Then
                Set txtRng = shp.TextFrame.TextRange
                For i = 1 To txtRng.Characters.Count
                    If txtRng.Characters(i).HasTextFrame Then
                        If txtRng.Characters(i).TextFrame.HasText Then
                            Set eq = txtRng.Characters(i).TextFrame.TextRange.Equation
                            If Not eq Is Nothing Then
                                MsgBox eq.OMath
                            End If
                        End If
                    End If
                Next i
            End If
        Next shp
    Next sld
End Sub

该代码遍历活动演示文稿中的所有幻灯片和形状，并针对每个形状检查它是否具有文本框和文本。如果文本框中包含公式，则将其显示在消息框中。

请注意，此代码仅限于PowerPoint的公式编辑器中创建的公式。如果您在PowerPoint中使用其他方法创建公式（例如使用Unicode字符），则可能需要相应更改代码以检测该方法。