Método CustomerData.Add (PowerPoint)

Adiciona um CustomXMLPart à coleção CustomerData de CustomLayout, Master, Presentation, Shape ou objeto Slide e retorna o objeto CustomXMLPart criado.

Sintaxe

expressão. Adicionar

Expressão Uma expressão que retorna um objeto CustomerData .

Valor de retorno

CustomXMLPart

Comentários

Você pode adicionar um ou mais itens de dados de cliente (partes XML personalizadas) para qualquer um dos objetos listados acima que possam conter dados de cliente.

Exemplo

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

Confira também

Coleção CustomerData

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.