通过

PowerPoint) (Effect.MoveTo 方法

  • 项目

将指定对象移动到同一集合中的指定位置，并适当地对集合中所有其他项目进行重新编号。

语法

expression。 MoveTo( _toPos_ )

表达 一个代表 Effect 对象的变量。

参数

名称 必需/可选 数据类型 说明
toPos 必需 Long 动画效果要移动到的索引位置。

示例

本示例在指定形状的动画效果集合中将一个动画效果移动到第二个动画效果的位置上。

Sub MoveEffect()

    Dim sldFirst as Slide
    Dim shpFirst As Shape
    Dim effAdd As Effect

    Set sldFirst = ActivePresentation.Slides(1)
    Set shpFirst = sldFirst.Shapes(1)
    Set effAdd = sldFirst.TimeLine.MainSequence.AddEffect _
        (Shape:=shpFirst, effectId:=msoAnimEffectBlinds)

    effAdd.MoveTo toPos:=2

End Sub

本示例将当前演示文稿中的第二张幻灯片移动到第一张幻灯片的位置上。

Sub MoveSlideToNewLocation()
    ActivePresentation.Slides(2).MoveTo toPos:=1
End Sub

另请参阅

影响对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。