Método Shape.Select (Projeto)

Seleciona a forma.

Sintaxe

mais simples. Selecione(Substituir)

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

Parâmetros

Valor de retorno

Nothing

Exemplo

O exemplo a seguir cria três formas e seleciona cada uma. Como a segunda e a terceira seleções são adicionadas à primeira seleção, todas as três formas sã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. Usando 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.