Excel VBA — мощный инструмент для автоматизации задач и повышения производительности в Microsoft Excel. При работе с фигурами в Excel вы часто можете столкнуться со сценариями, когда вам нужно выбрать несколько фигур одновременно. В этой статье блога мы рассмотрим различные методы выполнения этой задачи, используя разговорный язык, и предоставим вам примеры кода для каждого метода.

Метод 1: циклическое перебор фигур и выбор
Один простой способ выбрать несколько фигур — пройти через все фигуры на листе и выбрать нужные на основе определенных критериев, таких как тип фигуры, имя или положение.. Вот пример фрагмента кода, иллюстрирующий этот метод:

Sub SelectMultipleShapes_Loop()
    Dim shp As Shape

    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoShapeRectangle Then
            shp.Select
        End If
    Next shp
End Sub

Метод 2: использование свойства SelectionRange
Свойство SelectionRange позволяет выбрать несколько фигур за один раз, указав диапазон фигур. Этот метод особенно полезен, когда у вас есть заранее определенный набор фигур для выбора. Взгляните на следующий фрагмент кода:

Sub SelectMultipleShapes_Range()
    Dim shp1 As Shape
    Dim shp2 As Shape
    Dim shp3 As Shape

    Set shp1 = ActiveSheet.Shapes("Rectangle 1")
    Set shp2 = ActiveSheet.Shapes("Oval 1")
    Set shp3 = ActiveSheet.Shapes("Triangle 1")

    ActiveSheet.Shapes.Range(Array(shp1, shp2, shp3)).Select
End Sub

Метод 3: использование групп фигур
Если у вас есть коллекция фигур, сгруппированных вместе, вы можете выбрать все фигуры в группе, используя свойство GroupItems. Этот подход полезен, когда вы хотите манипулировать несколькими фигурами как единым целым. Вот пример фрагмента кода:

Sub SelectMultipleShapes_Group()
    Dim grp As Shape

    Set grp = ActiveSheet.Shapes("Group 1")

    grp.GroupItems.Select
End Sub

Sub SelectMultipleShapes_Tags()
    Dim shp As Shape

    For Each shp In ActiveSheet.Shapes
        If shp.Tags("Category") = "Charts" Then
            shp.Select
        End If
    Next shp
End Sub

Не забудьте поэкспериментировать с этими методами и адаптировать их к своим уникальным проектам Excel VBA. Приятного кодирования!