powerpoint vba中获取数学公式的唯一标识

在PowerPoint VBA中获取数学公式的唯一标识可以使用 `.ID` 属性来获取。以下是一个示例代码：

Sub GetEquationID()
    Dim slide As Slide
    Dim shape As Shape
    Dim eq As Equation
    Set slide = ActivePresentation.Slides(1)
    Set shape = slide.Shapes(1)
    Set eq = shape.TextFrame.TextRange.MathZones(1).OMaths(1).Functions(1)
    Debug.Print "Equation ID: " & eq.ID
End Sub

这段代码假定您想要获取第一个形状的第一个MathZone中第一个OMML的第一个函数的唯一标识符，并将其输出到控制台中。通过使用 `OMaths` 集合和 `Functions` 集合，您可以获取数学公式中的函数，并使用 `.ID` 属性来获取其唯一标识符。您可以根据您的情况进行相应的更改。