Partager via


CustomerData.Add, méthode (PowerPoint)

Ajoute un CustomXMLPart à la collection CustomerData d’un objet CustomLayout, Master, Presentation, Shape ou Slide et renvoie l’objet CustomXMLPart créé.

Syntaxe

expression. Ajouter

Expression Expression qui renvoie un objet CustomerData .

Valeur renvoyée

CustomXMLPart

Remarques

Vous pouvez ajouter un ou plusieurs éléments de données client (parties XML personnalisées) aux objets répertoriés ci-dessus pouvant contenir des données client.

Exemple

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

Voir aussi

CustomerData, collection

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.