如何将msoeffects添加到微软powerpoint中的vse对象？

Question

我已经用vse文本框创建了一个powerpoint，以便它们可以用来为我计算公式，但现在老板希望它们匹配未添加到开发人员选项卡的所有其他对象，因为那些标准运行磨机powerpoint对象可以在动力点的动画选项卡中添加动画，但是使用VSE文本框我无法以这种方式添加动画，我想让它们只是以特定的时间间隔出现。我已经分开并重写了很多次代码，所以它可能会有点不稳定，但这就是我所拥有的：

Public Sub SimpleAnimation()
Dim aSlide As Slide
Dim ashape As Shape
Dim animBehavior As AnimationBehavior
Dim aeffect As Effect


Set aSlide = ActivePresentation.Slides(3)
Set ashape = aSlide.Shapes(TextBox2)
Set aeffect = ActivePresentation.Slides(3).TimeLine.MainSequence(3)


aeffect.EffectType = msoAnimEffectAppear





End Sub

Answer 1

如果你在PPT本身中添加它们，我猜你是在谈论什么叫做ActiveX形状或开发者形状。 IOW，您通常在用户表单上看到的常用控件。

这些不能动画...尝试在PPT中手动添加它们;您将看到所有动画选项都被禁用/变灰。

您可以通过创建两张幻灯片来令人满意地伪造它，除了第二张幻灯片具有文本控件之外，它们彼此重复;然后通过添加幻灯片切换，您可以让控件看起来像动画一样。