Метод Shapes. Range (Project)Shapes.Range method (Project)

Возвращает объект ShapeRange , который представляет подмножество фигур в коллекции Shapes .Returns a ShapeRange object that represents a subset of shapes in the Shapes collection.

СинтаксисSyntax

Expression. Range (index)expression.Range (Index)

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

ПараметрыParameters

ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription
ИндексIndex ОбязательныйRequired VariantVariant Указывает одну или несколько фигур, включаемых в диапазон.Specifies one or more shapes to be included in the range. Может быть целым числом для номера индекса фигуры, строкой для имени фигуры или массивом, который содержит целые числа или строки.Can be an integer for the index number of a shape, a string for the name of a shape, or an array that contains either integers or strings.
ИндексIndex ОбязательныйRequired VariantVariant
ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription

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

ShapeRangeShapeRange

Диапазон фигур, которые указываются с помощью параметра index .The range of shapes that are specified by the Index parameter.

ПримечанияRemarks

Примечание

Большинство операций, которые можно выполнять с объектом Shape , также можно сделать с помощью объекта ShapeRange , который содержит одну фигуру.Most operations that you can do with a Shape object you can also do with a ShapeRange object that contains a single shape. Некоторые операции, выполняемые при выполнении объекта ShapeRange , содержащего несколько фигур, выдают ошибку.Some operations, when performed on a ShapeRange object that contains multiple shapes, produce an error.

Несмотря на то, что можно использовать свойство Range для возврата любого числа фигур в отчете, проще использовать свойство value по умолчанию, чтобы возвратить одну фигуру в коллекции.Although you can use the Range property to return any number of shapes on a report, it is simpler to use the default Value property to return a single Shape in the collection. Например, проще Shapes(1) , чем Shapes.Range(1).For example, Shapes(1) is simpler than Shapes.Range(1).

Чтобы указать массив целых чисел или строк для параметра index , можно использовать функцию массив .To specify an array of integers or strings for the Index parameter, you can use the Array function. Например, следующий макрос выбирает две фигуры, которые указываются по имени.For example, the following macro selects two shapes that are specified by name.

Sub SelectShapeRange()
    Dim arShapes() As Variant
    Dim oShapeRange As ShapeRange
    
    arShapes = Array("TextBox 4", "TextBox 5")
    Set oShapeRange = ActiveProject.Reports("Table Tests").Shapes.Range(arShapes)
    oShapeRange.Select
End Sub

ПримерExample

Если вы создаете отчет с двумя текстовыми полями, например, в предыдущем коде, следующий макрос выбирает текстовые поля по номеру индекса, а затем добавляет тень к каждому из них.If you create a report that has two text boxes such as in the previous code, the following macro selects the text boxes by index number, and then adds a shadow to each of them.

Sub AddShadow2Shapes()
    Dim oReports As Reports
    Dim oReport As Report
    Dim oShapeRange As ShapeRange
    Dim reportName As String
    Dim arShapes() As Variant

    arShapes = Array(3, 4)

    reportName = "Table Tests"
    Set oReports = ActiveProject.Reports
    
    If (oReports.IsPresent(reportName)) Then
        ' Make the report the active view.
        oReports(reportName).Apply
        
        Set oReport = oReports(reportName)
        
        Set oShapeRange = oReport.Shapes.Range(arShapes)
        
        oShapeRange.Select
        oShapeRange.Shadow.Type = msoShadow1
    End If
End Sub

См. такжеSee also

Объект ShapesобъектаShapeRange Shapes Object ShapeRange 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.