Método CustomerData.Delete (PowerPoint)

Elimina el objeto CustomXMLPart especificado de la colección CustomerData de CustomLayout, Master, presentación, forma u objeto Slide.

Sintaxis

expresión. Delete( _Id_ )

expresión Expresión que devuelve un objeto CustomerData .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Id	Obligatorio	String	El identificador del objeto CustomXMLPart que se va a eliminar.

Observaciones

Los objetos CustomXMLPart individuales de la colección CustomerData se representan mediante los GUID (identificadores únicos globales). Pasar el GUID que representa el fragmento XML personalizado que se va a eliminar para el parámetro Id del método Eliminar como una cadena. Puede obtener el identificador de un determinado elemento XML personalizado al recorrer en iteración la colección, mediante la propiedad Id de la colección CustomerData.

Ejemplo

El ejemplo siguiente muestra cómo utilizar el método Delete para eliminar un fragmento XML personalizado de la colección CustomerData. Agrega un nuevo elemento XML personalizado a la colección CustomerData de la primera forma de la primera diapositiva de la presentación activa. A continuación, obtiene el identificador del nuevo elemento y lo pasa al método 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

Vea también

Colección CustomerData

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.