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

lilisunxv

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

ucfhvkiaw

做了一个，不知满不满意。
代码如下：
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 = &quot;输入[0,1]&quot;
             Else
                shpy.OLEFormat.Object.Caption = &quot;√&quot;
             ActivePresentation.Slides(1).Shapes(&quot;a&quot;).Width = 384 * TextBox1.Value
             End If
End Sub

jjhuyong

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

chhsun

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

jammy_you

继续请教各路专家