CustomerData.Delete-Methode (PowerPoint)

Artikel
10/16/2024

Löscht das angegebene CustomXMLPart -Objekt aus der CustomerData -Auflistung eines CustomLayout-Objekts, Master-Shape, Präsentation, Shape oder Slide -Objekts.

Syntax

Ausdruck. Delete( _Id_ )

Ausdruck Ein Ausdruck, der ein CustomerData-Objekt zurückgibt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Id	Erforderlich	String	Die ID des CustomXMLPart -Objekts gelöscht werden soll.

Hinweise

Einzelne CustomXMLPart -Objekten in der CustomerData -Auflistung werden durch GUIDs (globally unique Identifier) dargestellt. Übergeben Sie die GUID, die die benutzerdefinierte XML-Komponente darstellt, die Sie an den Id-Parameter, der die Delete -Methode als Zeichenfolge löschen möchten. Sie können die ID der eine bestimmte benutzerdefinierte XML-Komponente abrufen, indem Sie die Auflistung durchlaufen mithilfe der Id -Eigenschaft der CustomerData -Auflistung.

Beispiel

Im folgenden Beispiel wird veranschaulicht, wie die Delete-Methode verwenden, um eine benutzerdefinierte XML-Komponente aus der CustomerData -Auflistung zu löschen. Es fügt der CustomerData-Auflistung der ersten Form auf der ersten Folie der aktiven Präsentation einen neuen benutzerdefinierten XML-Teil hinzu. Anschließend ruft die ID des neuen Teils ab und leitet sie an die Delete -Methode.

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

Siehe auch

CustomerData-Auflistung

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über