Método ShapeRange.Select (Project)

Seleciona cada forma em um intervalo de formas.

Sintaxe

expressão. Selecione(Substituir)

Expressão Uma variável que representa um objeto 'ShapeRange'.

Parâmetros

Valor de retorno

Nothing

Exemplo

O exemplo a seguir cria três formas, atribui duas formas ao primeiro intervalo, atribui a outra forma ao segundo intervalo e seleciona os intervalos de forma. Como a segunda seleção de intervalo adiciona à primeira seleção de intervalo, todas as três formas são selecionadas (consulte Figura 1).

Sub SelectShapes()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 As shape
    Dim shp3 As shape
    Dim reportName As String
    Dim sRange1 As ShapeRange
    Dim sRange2 As ShapeRange
    
    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)
        
    Set sRange1 = theReport.Shapes.Range(Array(2, 3))
    Set sRange2 = theReport.Shapes.Range(1)
    
    sRange1.Select
    sRange2.Select False
End Sub

Figura 1. Usando o método Selecionar para adicionar a uma seleção

Confira também

Objeto ShapeRange

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.