PowerPoint VBA教程:MoveTo方法

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

expression.MoveTo(toPos)

expression  必选。该表达式返回“应用于”列表中的对象之一。

toPos  必选。Long 类型。要将动画效果移动到的索引。

VBA示例

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


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

上页:PowerPoint VBA教程:MoveNode方法 下页:PowerPoint VBA教程:Name方法

PowerPoint VBA教程:MoveTo方法

PowerPoint VBA教程:Name方法 PowerPoint VBA教程:NewWindow方法
PowerPoint VBA教程:Next方法 PowerPoint VBA教程:NextNode方法
PowerPoint VBA教程:OfflineConflict Method PowerPoint VBA教程:OneColorGradient方法
PowerPoint VBA教程:Open方法 PowerPoint VBA教程:Paragraphs方法
PowerPoint VBA教程:Paste方法 PowerPoint VBA教程:PasteSpecial方法
PowerPoint VBA教程:Patterned方法 PowerPoint VBA教程:PickUp方法
PowerPoint VBA教程:Picture方法 PowerPoint VBA教程:Play方法
PowerPoint VBA教程:PointsToScreenPixelsX方法 PowerPoint VBA教程:PointsToScreenPixelsY方法
PowerPoint VBA教程:PresetDrop方法 PowerPoint VBA教程:PresetGradient方法
PowerPoint VBA教程:PresetTextured方法 PowerPoint VBA教程:Previous方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号