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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour