还是错误的 没有id这个成员

非常抱歉，我的回答还是有误。在 PPT VBA 中，公式并没有 Shape.ID 属性，因此不能使用 Shape.ID 来唯一代表一个公式。如果您需要唯一标识一个公式，可以使用以下两种方法之一：

1. 使用公式文本作为唯一标识

在 PPT 中，每个公式都有一个 Formula 属性，可以使用这个属性来获取公式的文本内容。由于每个公式的文本内容都是唯一的，因此可以将公式的文本内容作为唯一标识符。以下是一个示例代码：

Sub GetFormulaID()
    Dim shp As Shape
    Dim formulaText As String
    Dim formulaID As String
    
    ' 设置公式文本
    formulaText = "a^2 + b^2 = c^2"
    
    ' 遍历每个形状，查找公式
    For Each shp In ActivePresentation.Slides(1).Shapes
        ' 判断形状是否为公式
        If shp.Type = msoEmbeddedOLEObject And shp.OLEFormat.Object.Name = "Equation.3" Then
            ' 判断公式内容是否匹配
            If shp.OLEFormat.Object.Formula = formulaText Then
                ' 获取公式ID
                formulaID = formulaText
                Exit For
            End If
        End If
    Next shp
    
    ' 输出公式ID
    Debug.Print "The ID of the formula is: " & formulaID
End Sub

2. 使用公式对象的内存地址作为唯一标识

公式对象是一个 COM 对象，每个对象都有一个内存地址，可以使用这个地址作为唯一标识符。以下是一个示例代码：

Sub GetFormulaID()
    Dim shp As Shape
    Dim formulaText As String
    Dim formulaID As Long
    
    ' 设置公式文本
    formulaText = "a^2 + b^2 = c^2"
    
    ' 遍历每个形状，查找公式
    For Each shp In ActivePresentation.Slides(1).Shapes
        ' 判断形状是否为公式
        If shp.Type = msoEmbeddedOLEObject And shp.OLEFormat.Object.Name = "Equation.3" Then
            ' 判断公式内容是否匹配
            If shp.OLEFormat.Object.Formula = formulaText Then
                ' 获取公式ID
                formulaID = shp.OLEFormat.Object.ObjectPtr
                Exit For
            End If
        End If
    Next shp
    
    ' 输出公式ID
    Debug.Print "The ID of the formula is: " & formulaID
End Sub

需要注意的是，使用内存地址作为唯一标识符有一定的风险，因为如果公式对象被释放或重新创建，其内存地址可能会发生变化。因此，建议使用第一种方法，即使用公式文本作为唯一标识符。