Метод CustomerData.Add (PowerPoint)
Добавляет объект CustomXMLPart в коллекцию CustomerData объекта CustomLayout, Master, Presentation, Shape или Slide и возвращает созданный объект CustomXMLPart .
Синтаксис
expression. Добавить
Выражение Выражение, возвращающее объект CustomerData .
Возвращаемое значение
CustomXMLPart
Замечания
Вы можете добавить один или несколько элементов данных клиента (пользовательские XML-части) в любой из перечисленных выше объектов, которые могут содержать данные клиента.
Пример
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
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.