在Visio中通过VBA实现形状动画

Sub ShapeAnimation()
    Dim visApp As Visio.Application
    Dim visDoc As Visio.Document
    Dim visPage As Visio.Page
    Dim visShape As Visio.Shape
    
    ' 获取Visio应用程序对象
    Set visApp = GetObject(, "Visio.Application")
    
    ' 获取当前打开的Visio文档对象
    Set visDoc = visApp.ActiveDocument
    
    ' 获取当前活动页面对象
    Set visPage = visDoc.ActivePage
    
    ' 获取要进行动画的形状对象
    Set visShape = visPage.Shapes.Item("ShapeName")
    
    ' 设置形状的起始位置
    visShape.Cells("PinX").FormulaU = "5 in"
    visShape.Cells("PinY").FormulaU = "5 in"
    
    ' 设置形状的结束位置
    visShape.Cells("PinX").FormulaU = "10 in"
    visShape.Cells("PinY").FormulaU = "10 in"
    
    ' 设置形状动画的持续时间
    visShape.Cells("Animation.Duration").FormulaU = "2 s"
    
    ' 播放形状动画
    visShape.Cells("Animation.Play").FormulaU = "1"
End Sub