PowerPoint VBA教程:Selection对象

DocumentWindows (DocumentWindow)
Selection
ShapeRange (Shape)
SlideRange (Slide)
TextRange

代表指定文档窗口中的选中对象。

使用 Selection对象

使用Selection属性返回 Selection对象。以下示例将当前窗口中的选中对象复制到剪贴板。


ActiveWindow.Selection.Copy

使用ShapeRangeSlideRangeTextRange属性从选中的对象返回一系列形状、幻灯片或文本。

以下示例设置第二个窗口中选中形状的前景色,假设至少选中了一个形状且所有选中的形状具有可以改变前景色的填充。


With Windows(2).Selection.ShapeRange.Fill
    .Visible = True
    .ForeColor.RGB = RGB(255, 0, 255)
End With

如果第二个窗口中的第一个选中形状包含一文本框,以下示例设置其中的文本。


With Windows(2).Selection.ShapeRange(1)
    If .HasTextFrame Then
        .TextFrame.TextRange = "Current Choice"
    End If
End With

以下示例剪切当前窗口中选中的文本,将其放到剪贴板。


ActiveWindow.Selection.TextRange.Cut

以下示例复制选中的所有幻灯片(如果位于幻灯片视图,则复制当前幻灯片)。


ActiveWindow.Selection.SlideRange.Duplicate

如果使用这些属性时而没有选中合适类型对象(例如,在没有选中形状的情况下使用 ShapeRange属性),则会发生错误。请使用Type属性判断选中对象的类型。以下示例检查选中的对象中是否包含幻灯片。如果其中包含幻灯片,该示例设置其中第一个选中幻灯片的背景色。


With Windows(2).Selection
    If .Type = ppSelectionSlides Then
        With .SlideRange(1)
            .FollowMasterBackground = False
            .Background.Fill.PresetGradient _
                msoGradientHorizontal, 1, msoGradientLateSunset
        End With
    End If
End With

说明

在某一幻灯片视图中修改幻灯片时,Selection对象将被删除(Type属性将返回 ppSelectionNone)。

上页:PowerPoint VBA教程:ScaleEffect对象 下页:PowerPoint VBA教程:Sequence集合

PowerPoint VBA教程:Selection对象

PowerPoint VBA教程:Sequence集合 PowerPoint VBA教程:Sequences集合
PowerPoint VBA教程:ShadowFormat对象 PowerPoint VBA教程:Shape对象
PowerPoint VBA教程:ShapeNode对象 PowerPoint VBA教程:ShapeNodes集合对象
PowerPoint VBA教程:ShapeRange集合对象 PowerPoint VBA教程:Shapes集合对象
PowerPoint VBA教程:Slide对象 PowerPoint VBA教程:SlideRange集合对象
PowerPoint VBA教程:Slides集合对象 PowerPoint VBA教程:SlideShowSettings对象
PowerPoint VBA教程:SlideShowTransition对象 PowerPoint VBA教程:SlideShowView对象
PowerPoint VBA教程:SlideShowWindow对象 PowerPoint VBA教程:SlideShowWindows集合对象
PowerPoint VBA教程:SoundEffect对象 PowerPoint VBA教程:Table对象
PowerPoint VBA教程:TabStop对象 PowerPoint VBA教程:TabStops集合对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号