Objeto Selection (PowerPoint)

Representa a seleção na janela do documento especificado. O objeto Selection é excluído sempre que você altera slides em um modo de exibição de slides ativo (a propriedade Type retornará ppSelectionNone).

Exemplo

Use a propriedade Selection para retornar o objeto Selection. O exemplo a seguir coloca uma cópia da seleção na janela ativa na área de transferência.

ActiveWindow.Selection.Copy

Use a propriedade ShapeRange, SlideRange ou TextRange para retornar um intervalo de formas, slides ou texto da seleção.

O exemplo a seguir define a cor de primeiro plano de preenchimento para as formas selecionadas na janela dois, supondo-se que haja pelo menos uma forma selecionada, e supondo-se que todas as formas selecionadas têm um preenchimento cuja cor de primeiro plano pode ser definida.

With Windows(2).Selection.ShapeRange.Fill

    .Visible = True

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

End With

O exemplo a seguir define o texto da primeira forma selecionada na janela dois se essa forma contiver um quadro de texto.

With Windows(2).Selection.ShapeRange(1)

    If .HasTextFrame Then

        .TextFrame.TextRange = "Current Choice"

    End If

End With

O exemplo a seguir recorta o texto selecionado na janela ativa e o coloca na área de transferência.

ActiveWindow.Selection.TextRange.Cut

O exemplo a seguir duplica todos os slides na seleção (se você estiver na exibição de slides, isso duplica o slide atual).

ActiveWindow.Selection.SlideRange.Duplicate

Se você não possui um objeto do tipo apropriado selecionado quando você usa uma dessas propriedades (por exemplo, se você use a propriedade ShapeRange quando não há formas selecionadas), ocorrerá um erro. Use a propriedade Type para determinar que tipo de objeto ou objetos estão selecionados. O exemplo a seguir verifica se a seleção contém slides. Se a seleção contiver slides, o exemplo define o plano de fundo para o primeiro slide da seleção.

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

Métodos

Nome
Copy
Cut
Delete
Desmarque a opção

Propriedades

Nome
Application
ChildShapeRange
HasChildShapeRange
Responsável
ShapeRange
SlideRange
TextRange
TextRange2
Type

Confira também

Referência de modelo de objeto do PowerPoint

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.