Поделиться через


Метод 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

См. также

Коллекция CustomerData

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

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