CustomerData.Add-Methode (PowerPoint)

Der CustomerData -Auflistung eines CustomLayout-Objekts, Master-Shape, Präsentation, Shape oder Slide -Objekts ein CustomXMLPart-Objekt hinzugefügt, und das erstellte CustomXMLPart -Objekt zurückgibt.

Syntax

Ausdruck. Hinzufügen

Ausdruck Ein Ausdruck, der ein CustomerData-Objekt zurückgibt.

Rückgabewert

CustomXMLPart

Hinweise

Sie können den oben aufgeführten Objekten, die Kundendaten enthalten können, ein oder mehrere Kundendatenelemente (CustomXMLParts) hinzufügen.

Beispiel

Public Sub Add_Example() 
 
    Dim pptSlide As Slide 
    Set pptSlide = ActivePresentation.Slides(1) 
     
    Dim pptShape As Shape 
    For Each pptShape In pptSlide.Shapes 
         
        ' Get the CustomerData collection of the shape 
        Dim pptCustomerData As customerData 
        Set pptCustomerData = pptShape.customerData 
         
        ' Add a new CustomXMLPart object to the CustomerData collection for this shape 
        Dim pptCustomXMLPart As CustomXMLPart 
        Set pptCustomXMLPart = pptCustomerData.Add 
         
        ' Add data to the CustomXMLPart 
        pptCustomXMLPart.LoadXML ("<ShapeData><DataItem>This has to be valid XML</DataItem></ShapeData>") 
         
        ' Print the ID (a GUID) of the CustomXMLPart 
        Debug.Print (pptCustomXMLPart.Id) 
         
    Next 
 
End Sub

Siehe auch

CustomerData-Auflistung

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.