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
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.