PowerPoint (的 Selection 物件)
代表指定文件視窗中的選取範圍。 當您變更使用中投影片檢視的投影片時，會刪除 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 |
| Delete |
| Unselect |
屬性
| 名稱 |
|---|
| Application |
| ChildShapeRange |
| HasChildShapeRange |
| Parent |
| ShapeRange |
| SlideRange |
| TextRange |
| TextRange2 |
| Type |
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。