不对没有chartdata对象

非常抱歉，我的回答有误。在PowerPoint VBA中，获取Math Zones的OMML标识符需要使用Open XML SDK for Microsoft Office或其他XML解析库来解析PPTX文件中的幻灯片XML数据。以下是一个示例代码，可以获取指定幻灯片中所有Math Zones的OMML标识符：

Sub GetMathZonesOMML()
    Dim sld As Slide
    Dim shp As Shape
    Dim xml As String
    Dim xmlDoc As MSXML2.DOMDocument60
    Dim nsmgr As MSXML2.IXMLDOMNamespaceManager
    Dim node As MSXML2.IXMLDOMNode
    Dim omml As String
    
    Set sld = ActivePresentation.Slides(1) '指定要获取的幻灯片
    
    For Each shp In sld.Shapes
        '判断是否为Math Zone
        If shp.HasTextFrame Then
            xml = shp.TextFrame.TextRange.MathFormat.OfficeMathML
            If xml <> "" Then
                '解析OMML标识符
                Set xmlDoc = New MSXML2.DOMDocument60
                xmlDoc.LoadXML xml
                Set nsmgr = xmlDoc.createNSResolver(xmlDoc.DocumentElement)
                nsmgr.declarePrefix "m", "http://schemas.openxmlformats.org/officeDocument/2006/math"
                Set node = xmlDoc.SelectSingleNode("//m:oMath", nsmgr)
                omml = node.Attributes.getNamedItem("xmlns:m").Text
                Debug.Print omml
            End If
        End If
    Next shp
End Sub

在这个示例中，我们首先获取指定幻灯片中的所有形状。对于每个形状，我们检查是否为Math Zone。如果是，我们获取其OfficeMathML代码并使用MSXML2.DOMDocument60解析它。然后，我们从解析后的XML中提取OMML标识符并打印到调试窗口中。

请注意，此示例仅适用于PowerPoint 2010及更高版本。如果您使用的是较早的PowerPoint版本，则需要使用较旧的XML解析库。