Объект выделения (PowerPoint)

Представляет выделенный фрагмент в указанном окне документа. Объект выделения удаляется при смене слайдов в активном представлении слайдов (свойство 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 используется, когда фигуры не выбраны), возникает ошибка. Используйте свойство Тип , чтобы определить, какой тип объекта или объектов выбираются. В примере ниже проверяется, содержит ли выбранный фрагмент слайды. Если выделенный фрагмент содержит слайды, в данном примере устанавливается фон для первого слайда в выделенном фрагменте.

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 и обратная связь.