Метод Shape.Select (Проект)

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

Синтаксис

expression. Select(Replace)

Выражение Переменная, представляющая объект Shape .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Replace	Необязательный	Variant	Значение True заменяет текущий выделенный фрагмент новым. False добавляет новый выделенный фрагмент к текущему выделенному фрагменту. Значение по умолчанию — True.
Replace	Необязательный	Variant

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

Nothing

Пример

В следующем примере создаются три фигуры, а затем выбирается каждая из них. Так как второй и третий фрагменты добавляются к первому фрагменту, выделены все три фигуры (см. рис. 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

См. также

Объект Shape

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.