Excel VBA:移动对象的动画

Sub MoveObjectAnimation()
    Dim obj As Shape
    Dim startX As Double, startY As Double
    Dim endX As Double, endY As Double
    Dim stepX As Double, stepY As Double
    Dim i As Integer
    
    ' 设置对象
    Set obj = ActiveSheet.Shapes("Rectangle 1")
    
    ' 设置起始位置和目标位置
    startX = obj.Left
    startY = obj.Top
    endX = 300
    endY = 200
    
    ' 计算每一步的移动距离
    stepX = (endX - startX) / 50
    stepY = (endY - startY) / 50
    
    ' 创建动画效果
    For i = 1 To 50
        obj.Left = obj.Left + stepX
        obj.Top = obj.Top + stepY
        Application.Wait (Now + TimeValue("0:00:00.01"))
    Next i
End Sub