Compartir a través de

Método CustomerData.Add (PowerPoint)

  • Artículo

Agrega un objeto CustomXMLPart a la colección CustomerData de CustomLayout, Master, presentación, forma u objeto Slide y devuelve el objeto CustomXMLPart creado.

Sintaxis

expresión. Añadir

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

Valor devuelto

CustomXMLPart

Comentarios

Puede agregar uno o varios elementos de datos de cliente (fragmentos XML personalizados) a cualquiera de los objetos enumerados anteriormente que pueden contener datos del cliente.

Ejemplo

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

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.