Shape.Select method (Project) (Método Shape.Select [Projeto])

Seleciona a forma.

Sintaxe

expressão. Select(Replace)

expressão Uma variável que representa um objeto Shape.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Replace	Opcional	Variant	True substitui a seleção atual pela nova seleção. Falso adiciona a nova seleção à seleção atual. O valor padrão é True.
Replace	Opcional	Variant

Valor de retorno

Nothing

Exemplo

O exemplo seguinte cria três formas e, em seguida, seleciona cada forma. Uma vez que a segunda e terceira seleções são adicionadas à primeira seleção, as três formas estão selecionadas (consulte a Figura 1).

Sub SelectShapes()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 As shape
    Dim shp3 As shape
    Dim reportName As String
    
    reportName = "Select Report"
    
    Set theReport = ActiveProject.Reports.Add(reportName)
    Set shp1 = theReport.Shapes.AddShape(msoShapeActionButtonHelp, 20, 50, 20, 30)
    Set shp2 = theReport.Shapes.AddShape(msoShapeBalloon, 100, 50, 30, 50)
    Set shp3 = theReport.Shapes.AddShape(msoShapeWave, 140, 50, 30, 50)
            
    shp1.Select
    shp2.Select False
    shp3.Select False
End Sub

Figura 1. Utilizar o método Select para adicionar a uma seleção

Confira também

Objeto Shape

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.