Метод 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
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.