Método Shape.Select (Project)

Selecciona la forma.

Sintaxis

expresión. Select(Replace)

expresión Variable que representa un objeto Shape.

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Replace	Opcional	Variant	True reemplaza la selección actual por la nueva selección. False agrega la nueva selección a la selección actual. El valor predeterminado es True.
Replace	Opcional	Variant

Valor devuelto

Nothing

Ejemplo

En el ejemplo siguiente se crean tres formas y, a continuación, se selecciona cada forma. Dado que la segunda y tercera selección se agregan a la primera selección, se seleccionan las tres formas (vea la 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. Uso del método Select para agregar a una selección

Vea también

Objeto Shape

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.