Блог

Главная - Вопросы по программированию - Как создать форму анимации в MS Excel

Как создать форму анимации в MS Excel

#excel

#excel

Вопрос:

В Open Office есть возможность анимировать текст в форме; есть ли аналогичная функция в Excel?

Комментарии:

1. Пожалуйста, обратитесь к этой странице, надеюсь, это поможет.. wiki.openoffice.org/wiki/Documentation/OOo3_User_Guides /…

2. Привет, неуловимый, спасибо за ваш быстрый ответ. Я знаю, что эта опция была доступна в Open Office, но мой вопрос в том, доступна ли такая же функция в Excel?

Ответ №1:

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

Комментарии:

1. Версия Excel 2010. не могли бы вы, пожалуйста, поделиться кодом VBA для анимации в тексте формы?

Ответ №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) amp; 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