lilisunxv 发表于 2017-2-8 07:41:45

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

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

ucfhvkiaw 发表于 2017-2-8 09:44:31

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

jjhuyong 发表于 2017-2-8 09:56:26

疏忽了：
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 发表于 2017-2-8 10:51:12

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

jammy_you 发表于 2017-2-8 11:11:39

继续请教各路专家
页: [1]
查看完整版本: 请教，通过VBA添加擦除动画代码