powerpoint vba普通文本中包含公式 怎么获取公式标识

如果您想要在 VBA 中获取 PowerPoint 中普通文本中的公式标识，可以使用以下代码：

Sub GetFormulaFromText()
    Dim sld As Slide
    Dim shp As Shape
    Dim txtRng As TextRange
    Dim formula As String
    
    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            If shp.HasTextFrame Then
                Set txtRng = shp.TextFrame.TextRange
                If txtRng.MathZones.Count > 0 Then
                    formula = txtRng.MathZones(1).Range.Formula
                    Debug.Print formula
                End If
            End If
        Next shp
    Next sld
End Sub

这个代码将遍历 PowerPoint 中的每个幻灯片，然后遍历幻灯片中的每个形状。如果形状具有文本框，则将获取文本范围。如果文本范围中存在公式，则将获取第一个公式的标识，并通过 Debug.Print 语句输出到“立即窗口”。

请注意，此方法仅适用于普通文本中包含的公式，如果您的公式位于 PowerPoint 中的其他类型的形状中，则需要使用不同的代码来获取公式标识。