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

另請參閱

PowerPoint 物件模型參考資料

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。