PowerPoint) (选择对象
代表指定的文档窗口中的选定内容。 每次在幻灯片视图中更改幻灯片时，Selection 对象将被删除（Type 属性将返回 ppSelectionNone）。
示例
可以使用 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
方法
| 名称 |
|---|
| Copy |
| Cut |
| 删除 |
| 取消选择 |
属性
| 名称 |
|---|
| Application |
| ChildShapeRange |
| HasChildShapeRange |
| Parent |
| ShapeRange |
| SlideRange |
| TextRange |
| TextRange2 |
| Type |
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。