Método CustomerData.Item (PowerPoint)
Retorna o objeto CustomXMLPart especificado da coleção CustomerData. Somente leitura.
Sintaxe
expressão. Item (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. |
Valor de retorno
CustomXMLPart
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 obter ao parâmetro do método Item como uma cadeia de caracteres Id. Você pode obter a identificação de uma determinada parte XML personalizada obtendo o valor da propriedade Id do objeto CustomXMLPart.
Exemplo
O exemplo a seguir mostra como usar o método Item para obter uma parte XML personalizada usando sua cadeia de caracteres ID.
Public Sub Item_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
' Add a new CustomXMLPart object to the
' CustomerData collection for this shape
Dim pptCustomXMLPart As CustomXMLPart
Set pptCustomXMLPart = pptCustomerData.Add
' Get the ID of the new part
Dim myString As String
myString = pptCustomXMLPart.Id
Debug.Print myString
' Get the new part from the collection by its Id
' and load XML into the part
pptCustomerData.Item(myString).LoadXML ("<text>This is XML data.</text>")
Debug.Print pptCustomXMLPart.xml
End Sub
Confira também
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.