vba - 如何在 microsoft powerpoint 中将 msoeffects 添加到 vse 对象？

Question

我已经创建了一个带有 vse 文本框的 powerpoint，以便它们可以用来为我计算公式，但现在老板希望它们匹配所有其他未添加到开发人员选项卡的对象，因为这些标准运行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

我猜你说的是所谓的 ActiveX 形状或开发人员形状，如果你将它们添加到 PPT 本身中。IOW，您通常在用户表单上看到的常用控件。

这些不能动画...尝试在PPT本身中手动添加它们；你会看到所有的动画选项都被禁用/变灰了。

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