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.