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

Open Office有一个选项，可以在形状中设置文本动画；Excel中有类似的功能吗？

您正在尝试用哪个版本的Excel设置形状的动画？你会用它做什么？我没有在excel上看到任何形状动画。也许可以通过VBA来实现这一点。

得到了答案，下面是可以使其成功的宏

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

subtester1（）
将sp设置为字符串
将sTxt设置为字符串
将x作为整数，y作为整数
暗启动、延迟
sTxt=“你好！！”
对于y=0到25'15，在滚动中循环
对于x=1到60'的索引次数
Start=定时器“将Start设置为内部定时器
延迟=启动+0.15'设置延迟0.15秒
当定时器<延迟时执行显示例行程序
[D6]=空格（x）&sTxt'每次显示1个str
有人做什么吗
“循环”循环，直到延迟结束
多芬特
启动=定时器”，并重置定时器
延迟=启动+0.15'和延迟
下一个x'显示下一个str
下一次你再做一次-15
[D6]=“重置”
端接头

请参阅本页，希望对您有所帮助。。你好难以捉摸，谢谢你的及时回复。我知道open office中提供了该选项，但我的问题是Excel中是否提供了相同的功能？Excel版本是2010。能否在形状文本中共享动画的VBA代码？