CODEWITHSUNDEEP
excel
Regiz
Regiz

Reputation: 467

How to Make Animation shape in MS Excel

Open Office has an option to animate text in a shape; is there a similar feature in Excel?

Upvotes: 0

Views: 842

Answers (2)

Regiz
Regiz

Reputation: 467

Got an answer, below is the macro which can make it succeed.

Sub Tester1()

Dim sp As String
Dim sTxt As String
Dim x As Integer, y As Integer
Dim Start, delay

sTxt = "Hi there!!"

    For y = 0 To 25                                               '15 Loops through the scrolling
    For x = 1 To 60                                           'Index number of times
    Start = Timer                                         'Set start to internal timer
    delay = Start + 0.15                                  'Set delay for .15 secs
    Do While Timer < delay                                'Do the display routine

        [D6] = Space(x) & sTxt                            'Show 1 str @ a time
        DoEvents                                          'do there things
    Loop                                                  'Loop until delay is up
    DoEvents
    Start = Timer                                         'and reset the timer
    delay = Start + 0.15                                  'and the delay
Next x                                                    'Show the next str
Next y                                                        'Do this again - 15

[D6] = ""                                                     'Reset

End Sub

Upvotes: 0

Jampong
Jampong

Reputation: 25

Which version of excel are you trying to animate a shape? What would you use it for? I haven't seen any shape animations on excel. It might be possible to do it via VBA.

Upvotes: 1

Related Questions