CustomerData.Add 方法 (PowerPoint)

  • 项目

将 CustomXMLPart 添加到 CustomLayout 、 主控形状 、 演示文稿 、 形状 或 幻灯片 对象 客户 集合和返回创建的 CustomXMLPart 对象。

语法

表达式。添加

表达 返回 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。