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