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

以下是在 VBA Powerpoint 中获取文本框中所有公式的示例代码：

Sub GetFormulasInTextBoxes()
    Dim sld As Slide
    Dim shp As Shape
    Dim txtRng As TextRange
    Dim frmRng As TextRange
    
    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            If shp.HasTextFrame Then
                Set txtRng = shp.TextFrame.TextRange
                Set frmRng = txtRng.Find("=", 1)
                While Not frmRng Is Nothing
                    Debug.Print frmRng.Text
                    Set frmRng = txtRng.Find("=", frmRng.Start + 1)
                Wend
            End If
        Next shp
    Next sld
End Sub

这个代码将遍历活动演示文稿中的每个幻灯片和每个形状，并在包含公式的文本框中查找“=”符号。如果找到了，则打印公式文本。您可以根据需要修改此代码以满足您的具体要求。