Office学习社区 › 宏和VBA小程序开发 › 请教，通过VBA添加擦除动画代码

zjxzjx 发表于 2017-2-20 10:41:55

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

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

心海无痕 发表于 2017-2-20 12:07:27

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

dengjiangd 发表于 2017-2-20 12:54:34

疏忽了：
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)

dvbbs7 发表于 2017-2-20 13:11:52

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

qq_920 发表于 2017-2-20 13:12:24

继续请教各路专家

查看完整版本: 请教，通过VBA添加擦除动画代码