Método Shape.Select (Project)
Seleciona a forma.
Sintaxe
expressão. Selecione(Substituir)
Expressão Uma variável que representa um objeto Shape .
Parâmetros
Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
---|---|---|---|
Replace | Opcional | Variantes | True substitui a seleção atual pela nova seleção. False adiciona a nova seleção à seleção atual. O valor padrão é True. |
Replace | Opcional | Variantes |
Valor de retorno
Nothing
Exemplo
O exemplo a seguir cria três formas e seleciona cada forma. Como a segunda e terceira seleções adicionam à primeira seleção, 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
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 Selecionar para adicionar a uma seleção
Confira também
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.