Объект Selection (PowerPoint)

Статья
04/07/2023

Представляет выбор в указанном окне документа. Объект Selection удаляется при каждом изменении слайдов в активном представлении слайдов (свойство Type вернет ppSelectionNone).

Пример

Используйте свойство Selection, чтобы возвратить объект Selection. В следующем примере копия выделенного фрагмента размещается в активном окне в буфере обмена.

ActiveWindow.Selection.Copy

Используйте свойства ShapeRange, SlideRange или TextRange , чтобы вернуть диапазон фигур, слайдов или текста из выделенного фрагмента.

В следующем примере задается цвет переднего плана заливки для выбранных фигур во окне 2, при условии, что выбрана хотя бы одна фигура, и при условии, что все выбранные фигуры имеют заливку, передний цвет которой можно задать.

With Windows(2).Selection.ShapeRange.Fill

    .Visible = True

    .ForeColor.RGB = RGB(255, 0, 255)

End With

В следующем примере задается текст в первой выделенной фигуре в окне 2, если эта фигура содержит текстовый кадр.

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

Поделиться через