在EXCEl中使用VBA制作动画

1、点击开发工具-visual basic打开编程界面，如果没有开发工具选项，可以再文件-选项中加载

2、回到工作表，插入心型形状和部分插件，如图

3、进入编程界面

Private Sub ToggleButton1_Click()    Do While ToggleButton1.Value        Shapes("组合 5").IncrementRotation Range("c1").Value        DoEvents        With Shapes(1)        If Cells(1, 5) = 1 Then            i = i + 10        Else            i = i - 10        End If        .Top = Sin(i * (3.14 / 180)) * 100 + 100        .Left = Cos(i * (3.14 / 180)) * 100 + 100    End With    LoopEnd SubSub 滚动条4()    Sheet1.Shapes(1).Select    Selection.ShapeRange.Width = Cells(1, 4)    Selection.ShapeRange.Height = Cells(1, 4)End Sub

分别设置各插件数据，主要是对形状中心进行定位，并控制速度，重复中心旋转