Export (0) Print
Expand All

Working with Custom XML Parts in Office 2010

Office 2010

Office Quick Note banner

Programmatically Working with Shapes in Office 2010: Learn how to work with custom XML parts and data in Microsoft PowerPoint 2010.

Last modified: May 20, 2011

Applies to: Excel 2010 | Office 2007 | Office 2010 | PowerPoint 2010 | Word 2010

In this article
Add a Standard Module to a PowerPoint Presentation
Add the Code to the Visual Basic Editor
Test the Solution
Next Steps

Published:   June 2011

Provided by:    Frank Rice, Microsoft Corporation

Adding custom data to a presentation, shape, or slide enables you to retrieve the data at will. Whereas the Tag property enables you to retrieve a single line of data, as demonstrated in this sample, using the CustomerData property stores a block of XML data. In this topic, you programmatically add data to a shape in a Microsoft PowerPoint 2010 presentation. You then create a new slide, copy the shape over, and verify that the data went with the shape. To complete this task, you must do the following:

In this task, you open a PowerPoint 2010 presentation, open the Visual Basic Editor, and then insert a standard module.

To add a standard module to a PowerPoint presentation

  1. Start PowerPoint 2010.

  2. On the Developer tab, click Visual Basic. This opens the Visual Basic Editor.

    Note Note

    If you do not see the Developer tab in PowerPoint 2010, click the File tab, and then click Options. In the categories pane, click Popular, select Show Developer tab in the Ribbon, and then click OK.

  3. On the Insert menu, click Module. This adds Module1 to the Projects pane on the left side of the Visual Basic Editor.

In this task, you add programming code to the Visual Basic Editor.

To add code to the Visual Basic Editor

  1. In the Projects pane, click Module1.

  2. Paste or type the following Microsoft Visual Basic for Applications (VBA) code into the module window.

    Sub WorkWithCustomerData()
        ' Although this custom XML part is referred to as "Customer data",
        ' and the documentation refers to it as being for including information
        ' about customers, that's clearly not the intended use. The "customer"
        ' referred to here is actually just the customer of the CustomLayout,
        ' Master, Presentation, Shape, or Slide. You can add custom data to
        ' any (and all) of these, so that you can retrieve the data at will. The
        ' data needn't (and probably won't) be pertinent to customer information.
       
        ' The important point is that the data "goes with" the host object. If you
        ' add customer data to a shape, and then move the shape to a new presentation,
        ' the customer data tags along. The same can be said for a slide, or any other
        ' place you add customer data.
       
        ' Note that this property works much like the Tag property, except that storing only a
        ' single string (like the Tag property) the CustomerData property stores a block of
        ' XML data.
       
        ' Add customer data to a shape on a presentation. Then create a new slide,
        ' copy the shape over, and verify that the customer data went with the shape.
        ' The same concept could apply to any item to which you can attach a
        ' CustomerData value.
       
        Dim shp As Shape
        Dim sld As Slide
        Set sld = ActivePresentation.Slides(1)
        Set shp = sld.Shapes.AddShape(msoShape7pointStar, 10, 10, 200, 200)
       
        ' Add a CustomXMLPart as the CustomerData property of the shape.
        Dim xmlPart As CustomXMLPart
        Set xmlPart = shp.CustomerData.Add
       
        ' Print out the unique ID:
        Dim customerDataId As String
        customerDataId = xmlPart.Id
        Debug.Print customerDataId
       
        ' Put some well-formed XML into the part. You might get this XML from a
        ' text file, from a database, or from a Web Service:
        xmlPart.LoadXML "<XMLData TextToDisplay='Title' Date='5/15/2012' Author='Lucy'>Here's some text!</XMLData>"
        Debug.Print xmlPart.XML
       
        ' Make a copy of the shape:
        shp.Copy
       
        ' Create a new slide, and paste the shape into the new slide:
        Dim sld2 As Slide
        Set sld2 = ActivePresentation.Slides.Add(2, ppLayoutBlank)
        sld2.Shapes.Paste
           
        ' Retrieve a reference to the new shape:
        Dim shp2 As Shape
        Set shp2 = sld2.Shapes(1)
           
        ' You can only retrieve CustomerData by its ID, but because
        ' the code made a copy of the shape, the customer data now has
        ' a newly assigned ID. Loop through all the CustomerData items
        ' (each of which is a CustomXMLPart), and find the ID of each.
        ' There should only be one, and given the ID, you can get at the XML:
        Dim cxp As CustomXMLPart
        For Each cxp In shp2.CustomerData
            customerDataId = cxp.Id
            Set xmlPart = shp2.CustomerData.Item(customerDataId)
            ' Verify that the custom XML content in the CustomerData property
            ' has been propogated with the copied shape:
            Debug.Print "Newly copied part: " & xmlPart.XML
        Next cxp
    End Sub
    
    

In this task, you step through the code. The best way to see the code in action is to place the Visual Basic Editor and the PowerPoint screen side-by-side.

To run the code

  1. Drag the Visual Basic Editor to the right side of the screen.

  2. Next, drag the PowerPoint screen to the left side of the screen and adjust both screens until you can see clearly.

  3. Place your cursor in the WorkWithCustomerData module and then press F8 to step through the code line-by-line and watch the results.

Show:
© 2014 Microsoft