CustomerData.Delete, méthode (PowerPoint)
Supprime l’objet CustomXMLPart spécifié de la collection CustomerData d’un objet CustomLayout, Master, Presentation, Shape ou Slide .
Syntaxe
expression. Delete( _Id_
)
Expression Expression qui renvoie un objet CustomerData .
Parameters
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
Id | Requis | String | Identificateur de l’objet CustomXMLPart à supprimer. |
Remarques
Les objets CustomXMLPart de la collection CustomerData sont représentés par des GUID (identificateurs globaux uniques). Passez le GUID qui représente la partie XML personnalisée que vous voulez supprimer au paramètre Id de la méthode Delete en tant que String. Vous pouvez obtenir l’ID d’une partie XML personnalisée particulière en itérant dans la collection, à l’aide de la propriété Id de la collection CustomerData .
Exemple
L’exemple suivant montre comment utiliser la méthode Delete pour supprimer une partie XML personnalisée de la collection CustomerData. Il ajoute une nouvelle partie XML personnalisée à la collection CustomerData de la première forme de la première diapositive de la présentation active. Il obtient ensuite l’ID du nouveau composant et le transmet à la méthode Delete .
Public Sub Delete_Example()
Dim pptSlide As Slide
Set pptSlide = ActivePresentation.Slides(1)
Dim pptShape As Shape
Set pptShape = pptSlide.Shapes(1)
' Get the CustomerData collection of the shape
Dim pptCustomerData As customerData
Set pptCustomerData = pptShape.customerData
' Get the current count of custom XML parts
Debug.Print pptCustomerData.Count
' Add a new CustomXMLPart object to the CustomerData
' collection for this shape and get the revised count of
' custom XML parts
Dim pptCustomXMLPart As CustomXMLPart
Set pptCustomXMLPart = pptCustomerData.Add
Debug.Print pptCustomerData.Count
' Get the ID of the new part
Dim myString As String
myString = pptCustomXMLPart.Id
Debug.Print myString
' Delete the new part and re-check the count of custom XML parts
pptCustomerData.Delete (myString)
Debug.Print pptCustomerData.Count
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.