Classe Selection (PowerPoint VBA)

A classe Selection 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).

Os principais procedimentos da classe Selection são Copy e Delete

Set

Para usar uma variável de classe Selection, ela primeiro precisa ser instanciada por exemplo

Dim slc as Selection
Set slc = ActiveWindow.Selection

As variáveis ​​de classe Selection podem ser definidas usando o procedimento DocumentWindow.Selection.

Métodos

Estes são os principais métodos da classe Selection

Copy - Copia o objeto especificado para a Área de transferência.

ActiveWindow.Selection.Copy

Delete - Exclui o objeto Selection especificado.

ActiveWindow.Selection.Delete

Propriedades

ChildShapeRange Retorna um objeto ShapeRange que representa as formas filhas de uma seleção.

Dim sreChildShapeRange As ShapeRange
Set sreChildShapeRange = ActiveWindow.Selection.ChildShapeRange

HasChildShapeRange True se a seleção contém formas filhas. Somente leitura.

Dim booHasChildShapeRange As Boolean
booHasChildShapeRange = ActiveWindow.Selection.HasChildShapeRange

Parent Retorna o objeto parente para o objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.Selection.Parent

ShapeRange Retorna um objeto ShapeRange que representa todos os objetos de slide selecionados no slide especificado. Somente leitura.

Dim sreShapeRange As ShapeRange
Set sreShapeRange = ActiveWindow.Selection.ShapeRange

SlideRange Retorna um objeto SlideRange que representa um intervalo de slides selecionados. Somente leitura.

Dim sreSlideRange As SlideRange
Set sreSlideRange = ActiveWindow.Selection.SlideRange

TextRange Retorna um objeto TextRange que representa o texto selecionado. Somente leitura.

Dim treTextRange As TextRange
Set treTextRange = ActiveWindow.Selection.TextRange

TextRange2 Retorna o objeto TextRange2 do objeto Selection atual. Somente leitura.

Dim tr2TextRange2 As Office.TextRange2
Set tr2TextRange2 = ActiveWindow.Selection.TextRange2

Type Representa os tipos de objetos em uma seleção. Somente leitura.

Dim pstType As PpSelectionType
pstType = ActiveWindow.Selection.Type