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

zjxzjx

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

擦除动画.zip (35.04 KB, 下载次数: 12)

2017-2-20 10:41 上传

点击文件名下载附件

心海无痕

做了一个，不知满不满意。
代码如下：
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

dengjiangd

疏忽了：
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)
擦除动画.zip (36.15 KB, 下载次数: 37)

2017-2-16 19:06 上传

点击文件名下载附件

dvbbs7

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

qq_920

继续请教各路专家