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

可以使用以下VBA代码获取PowerPoint中普通文本中包含的公式的ID：

Sub GetFormulaID()
    Dim sld As Slide
    Dim shp As Shape
    Dim i As Long
    
    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            If shp.HasTextFrame Then
                For i = 1 To shp.TextFrame.TextRange.Characters.Count
                    If shp.TextFrame.TextRange.Characters(i, 1).Font.Name = "Cambria Math" Then
                        Debug.Print shp.TextFrame.TextRange.Characters(i, 1).ActionSettings(ppMouseClick).Hyperlink.SubAddress
                    End If
                Next i
            End If
        Next shp
    Next sld
End Sub

这个代码将遍历当前演示文稿中的所有幻灯片和形状，并检查每个形状的文本框中的每个字符，如果字符的字体是"Cambria Math"，则打印出该字符的超链接子地址，即公式的ID。请注意，此代码仅适用于使用Cambria Math字体编写的公式。如果您使用其他字体编写公式，则需要相应地更改代码。