Как сделать анимацию фигуры в MS Excel

Question

Open Office имеет возможность анимировать текст в форме;Есть ли подобная функция в Excel?

Answer 1

В какой версии Excel вы пытаетесь анимировать фигуру?Что бы вы использовали для этого?Я не видел никакой анимации формы в Excel.Это может быть возможно сделать через VBA.

Answer 2

Получил ответ, ниже приведен макрос, который может сделать его успешным.

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