Метод CustomerData.Item (PowerPoint)

Возвращает указанный объект CustomXMLPart из коллекции CustomerData . Только для чтения.

Синтаксис

expression. Item (Id)

выражение Выражение, возвращающее объект CustomerData .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Id	Обязательный	String	Идентификатор объекта CustomXMLPart .

Возвращаемое значение

CustomXMLPart

Замечания

Отдельные объекты CustomXMLPart в коллекции CustomerData представлены идентификаторами GUID (глобально уникальными идентификаторами). Передайте ИДЕНТИФИКАТОР GUID, представляющий настраиваемую XML-часть, которую требуется получить, в параметр Id метода Item в виде строки. Идентификатор определенной пользовательской XML-части можно получить, получив значение свойства Id объекта CustomXMLPart .

Пример

В следующем примере показано, как использовать метод Item для получения пользовательской XML-части по строке идентификатора.

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

См. также

Коллекция CustomerData

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.