CustomerData.Add メソッド (PowerPoint)

の CustomXMLPart を CustomLayout 、 マスター 、 プレゼンテーション 、 図形 、または スライド のオブジェクトの CustomerData コレクションに追加し、 CustomXMLPart オブジェクトを作成します。

構文

式。追加

式CustomerData オブジェクトを返す式。

戻り値

CustomXMLPart

注釈

上記のオブジェクトの中で、顧客データを含むことができる任意のオブジェクトに、1 つまたは複数の顧客データ (カスタム 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 のサポートおよびフィードバックを参照してください。