Метод Shape. Select (Project)Shape.Select method (Project)

Выбирает фигуру.Selects the shape.

СинтаксисSyntax

Expression. Выбор (замена)expression.Select (Replace)

Expression (выражение ) Переменная, представляющая объект Shape .expression A variable that represents a Shape object.

ПараметрыParameters

ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription
ReplaceReplace НеобязательныйOptional VariantVariant Значение true заменяет текущий выделенный фрагмент на новый выделенный фрагмент.True replaces the current selection with the new selection. False — добавляет новый выделенный фрагмент к текущему выделенному фрагменту.False adds the new selection to the current selection. Значение по умолчанию — True.The default value is True.
ReplaceReplace НеобязательныйOptional VariantVariant

Возвращаемое значениеReturn value

NothingNothing

ПримерExample

В приведенном ниже примере создаются три фигуры, после чего выделяется каждая фигура.The following example creates three shapes, and then selects each shape. Так как второй и третий элементы добавляются к первому выделению, выделены все три фигуры (см. рисунок 1).Because the second and third selections add to the first selection, all three shapes are selected (see Figure 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

Рис. 1. Использование метода Select для добавления к выделенному фрагментуFigure 1. Using the Select method to add to a selection

Использование метода Select для добавления выбора

См. такжеSee also

Объект ShapeShape Object

Поддержка и обратная связьSupport and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.