splash screen

[Guest]

is there a way to animate text in a cell in an excel worksheet?

 

[Guest]

ok, a little more detailed, what exactly do you mean by animate?

 

[Todd Huttenstine]

below is some sample code. I use this to animate
wordart. You may be able to apply this to some graphic
file.

Private Sub Worksheet_Activate()
On Error Resume Next

Set OldCell = ActiveCell
ActiveSheet.Shapes("WordArt 1").Select
m = 1
For i = 1 To 10
Selection.ShapeRange.TextEffect.Tracking = m
m = m + 0.25
DoEvents
Next i
For i = 10 To 1 Step -1
Selection.ShapeRange.TextEffect.Tracking = m
m = m - 0.25
DoEvents
Next i
Selection.ShapeRange.TextEffect.Tracking = 1

ActiveSheet.Shapes("WordArt 2").Select
For i = 1 To 8
Selection.ShapeRange.IncrementRotation 90
DoEvents
Next i
OldCell.Select
End Sub