This documentation is archived and is not being maintained.

Applying Animations to Shapes in Office 2010

Office 2010

Office Quick Note banner

Programmatically Working with Shapes in Office 2010: Learn how to manipulate the color format property of a shape in a Microsoft PowerPoint 2010 presentation.

Last modified: April 22, 2011

Applies to: Excel 2010 | 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:   April 2011

Provided by:    Frank Rice, Microsoft Corporation

Microsoft Office 2010 includes the ability to work with many kinds of art shapes. Some examples of shapes include lines, connectors, basic shapes, flowchart elements, stars and banners, and callouts. It is easy to apply animations to shapes. In this topic, you programmatically create some simple shapes and then apply animations to them. 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. This code creates a shape and adds three animations to it, picks up the animation, and then applies the animation to two other shapes.

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 TestPickupAnimation()
        With ActivePresentation.Slides(1)
            Dim shp1, shp2, shp3 As Shape
            ' Create the initial shape and apply the animations.
            Set shp1 = .Shapes.AddShape(msoShape12pointStar, 20, 20, 100, 100)
            .TimeLine.MainSequence.AddEffect shp1, msoAnimEffectFadedSwivel, , msoAnimTriggerAfterPrevious
            .TimeLine.MainSequence.AddEffect shp1, msoAnimEffectPathBounceRight, , msoAnimTriggerAfterPrevious
            .TimeLine.MainSequence.AddEffect shp1, msoAnimEffectSpin, , msoAnimTriggerAfterPrevious
            ' Now create a second shape, and apply the same animation to it:
            Set shp2 = .Shapes.AddShape(msoShapeHexagon, 100, 20, 100, 100)
            ' And one more:
            Set shp3 = .Shapes.AddShape(msoShapeCloud, 180, 20, 100, 100)
        End With
    End Sub

    The PickupAnimation method places the animation information for a specific shape in a "holding area". The ApplyAnimation method enables you to apply the animation to a specific shape.

In this task, you execute the code. When you have run the code, run the presentation to view the animations.

To run the code

  1. On the Developers tab, click Macros, highlight TestPickupAnimation, and then click Run.

  2. To run the presentation, press F5.