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

如何在MS Excel中制作动画形状

2 个答案: