Partager via


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

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.