Question

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

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

使用 Selection 对象

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

ActiveWindow.Selection.Copy

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

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

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）。