Método CustomerData.Delete (PowerPoint)

Exclui o objeto CustomXMLPart especificado da coleção CustomerData de CustomLayout, Master, Presentation, Shape ou objeto Slide.

Sintaxe

expressão. Excluir( _Id_ )

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Id	Obrigatório	String	A identificação do objeto CustomXMLPart a ser excluído.

Comentários

Os objetos de CustomXMLPart individuais na coleção CustomerData são representados por GUIDs (identificadores identificador global exclusivos). Passe o GUID que representa a parte XML personalizada que você deseja excluir para o parâmetro de identificação do método Delete como uma cadeia de caracteres. Você pode obter a identificação de uma determinada parte XML personalizada repetindo a coleção, usando a propriedade Id da coleção CustomerData.

Exemplo

O exemplo a seguir mostra como usar o método Delete para excluir uma parte XML personalizada da coleção CustomerData. Ele adiciona uma nova parte XML personalizada à coleção CustomerData da primeira forma no primeiro slide da apresentação ativa. Em seguida, ele obtém a identificação da nova parte e passa para o 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

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.