Animation and VBA help in PPT 2003

nsalyani · #1 05-20-2011, 06:19 PM

Hi to All,

First time user of this Forum, Hopefully I can get some help on this.

THE REQUIREMENT:
I have a PowerPoint page with 4 squares (from autoshapes). Each square has some text in it which I have set to appear one after the other in each of the boxes upon mouse click using custom animation tools.

Once the text appears, I have an Action Setting on each box for a MACRO to run on each of the boxes upon click of the box. The Macro (in VBA seen below) is expected to change the color of the box to orange first. If the box selected is the correct one, the color of that box changes to green. If the box selected is incorrect, the color of the correct box should turn green.

THE ISSUE:
The Problem I am facing is that since I am bringing in the text into the boxes VIA custom Animation, when the Macro runs on the box, the color changes correctly, but the text in all the boxes disappears.
If however, I do not use custom Animation to bring in the text, everything works as it is supposed to. But my requirements is to being in the text into the boxes one by one.

SAMPLE CODE FOR THE COLOR CHANGE:

Code:

Sub SelectAnswer1(shpA As Shape)
Dim shp2 As Shape
Dim ss As Slide

shpA.Fill.ForeColor.RGB = RGB(255, 165, 0)
For Each ss In ActivePresentation.Slides
    For Each shpA In ss.Shapes
        If shpA.HasTextFrame Then
            If StrComp(shpA.TextFrame.TextRange, "Text1", vbTextCompare) = 0 Then
                shpA.Fill.ForeColor.RGB = RGB(124, 242, 0)
                For Each shp2 In ss.Shapes
                    If shp2.Fill.ForeColor.RGB = RGB(255, 165, 0) Then
                        y = Timer + 0.1
                        Do While Timer < y
                        DoEvents
                        Loop
                        End
                    End If
                Next shp2
            End If
        End If
    Next shpA
Next ss 
End Sub

Any help will be greatly appreciated.

Thanks

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
**Out of The Box Animation FX**	ap808	PowerPoint	0	04-22-2011 03:37 PM
Animation on next slide	geezawolf	PowerPoint	0	02-10-2011 06:52 AM
animation	D-ru	PowerPoint	1	12-05-2010 03:59 PM
Text box with animation	hadds	PowerPoint	0	10-11-2010 09:24 PM
2003 Powerpoint - Custom Animation OVER movie	Chrisburke23	PowerPoint	0	10-15-2009 08:03 AM