CustomerData.Item メソッド (PowerPoint)
CustomerData コレクションから指定された CustomXMLPart オブジェクトを返します。 読み取り専用です。
構文
式。Item (Id)
式CustomerData オブジェクトを返す式。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
Id | 必須 | String | CustomXMLPart オブジェクトの ID です。 |
戻り値
CustomXMLPart
注釈
CustomerData コレクション内の個々 の CustomXMLPart オブジェクトは、Guid (グローバル一意識別子) で表されます。 Id 文字列 として 項目 のメソッドのパラメーターを取得するカスタム XML 部分を表す GUID を渡します。 CustomXMLPart オブジェクトの Id プロパティの値を取得することによって、特定のカスタム XML 部分の ID を取得できます。
例
次の使用例は、Item メソッドを使用してカスタム XML 部分を ID 文字列に基づいて取得する方法を示します。
Public Sub Item_Example()
Dim pptSlide As Slide
Set pptSlide = ActivePresentation.Slides(1)
Dim pptShape As Shape
Set pptShape = pptSlide.Shapes(1)
' 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
' Get the ID of the new part
Dim myString As String
myString = pptCustomXMLPart.Id
Debug.Print myString
' Get the new part from the collection by its Id
' and load XML into the part
pptCustomerData.Item(myString).LoadXML ("<text>This is XML data.</text>")
Debug.Print pptCustomXMLPart.xml
End Sub
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。