请教，通过VBA添加擦除动画代码

okwnx

想给.shape("a")添加擦除动画（msoAnimEffectWipe），谢谢!!!

weiyingde

做了一个，不知满不满意。
代码如下：
Sub 改变内容()
Set shpi = ActivePresentation.Slides(1).Shapes("TextBox1")
Set shpy = ActivePresentation.Slides(1).Shapes("Label1")
             If Val(shpi.OLEFormat.Object.Text) < 0 Or Val(shpi.OLEFormat.Object.Text) > 1 Then
                shpy.OLEFormat.Object.Caption = "输入[0,1]"
             Else
                shpy.OLEFormat.Object.Caption = "√"
             ActivePresentation.Slides(1).Shapes("a").Width = 384 * TextBox1.Value
             End If
End Sub

weiyingde

疏忽了：
ActivePresentation.Slides(1).Shapes("a").Width = 384 * TextBox1.Value
改为：
ActivePresentation.Slides(1).Shapes("a").Width = 384 * val(shpi.OLEFormat.Object.Text)

okwnx

weiyingde 发表于 2016-8-23 13:18
疏忽了：
ActivePresentation.Slides(1).Shapes("a").Width = 384 * TextBox1.Value
改为：

谢谢热心帮助！
其实 本意是想让Shapes("a")宽度变化的同时，能实现msoAnimEffectWipe的effect动态效果，这边尝试了几遍失败
能否再热心一下，感谢！

okwnx

继续请教各路专家