VBA Excel. Работа с фигурами (Shapes)

    Работа с фигурами в VBA Excel: создание фигур методом Shapes.AddShape, типы фигур (MsoAutoShapeType), обращение к фигурам и изменение их свойств. Примеры.

    Объекты для работы с фигурами

    Фигуры в VBA Excel представлены тремя объектами:

    Объект Описание
    Shapes Коллекция всех фигур на рабочем листе. Используется для создания новых фигур, для обращения к одной фигуре по имени и для перебора фигур циклом.
    ShapeRange Коллекция нескольких фигур, аргументом которой является массив имен выбранных объектов. Используется для редактирования сразу всех фигур, входящих в эту коллекцию.
    Shape Объект, представляющий одну фигуру. Используется для редактирования одной этой фигуры.

    Создание фигур в VBA Excel

    Фигуры в VBA Excel создаются методом Shapes.AddShape.

    Синтаксис метода AddShape

    Shapes — выражение, возвращающее коллекцию фигур на рабочем листе, например: ActiveSheet.Shapes.

    Параметры метода AddShape

    Параметр Описание
    Type Константа из коллекции MsoAutoShapeType, определяющая тип создаваемой фигуры.
    Left Расстояние от левой границы фигуры до левой границы табличной части рабочего листа в пунктах.. Тип данных — Single.
    Top Расстояние от верхней границы фигуры до верхней границы табличной части рабочего листа в пунктах.. Тип данных — Single.
    Width Ширина фигуры по внешним границам в пунктах.
    Height Высота фигуры по внешним границам в пунктах.

    Все параметры метода Shapes.AddShape являются обязательными.

    Константы MsoAutoShapeType

    Константы коллекции MsoAutoShapeType, определяющие основные типы создаваемых фигур:

    Константа Значение Тип фигуры
    msoShapeRectangle 1 Прямоугольник
    msoShapeParallelogram 2 Параллелограмм
    msoShapeTrapezoid 3 Трапеция
    msoShapeDiamond 4 Ромб
    msoShapeRoundedRectangle 5 Прямоугольник: скругленные углы
    msoShapeOctagon 6 Восьмиугольник (октаэдр)
    msoShapeIsoscelesTriangle 7 Равнобедренный треугольник
    msoShapeRightTriangle 8 Прямоугольный треугольник
    msoShapeOval 9 Овал
    msoShapeHexagon 10 Шестиугольник (гексаэдр)
    msoShapeCross 11 Крест
    msoShapeRegularPentagon 12 Пятиугольник (пентаэдр)
    msoShapeCan 13 Цилиндр
    msoShapeCube 14 Куб
    msoShapeDonut 18 Круг: прозрачная заливка (кольцо)
    msoShapeLightningBolt 22 Молния
    msoShapeSun 23 Солнце
    msoShapeMoon 24 Месяц (луна)
    msoShape5pointStar 92 Звезда: 5 точек (пятиконечная)
    msoShapeCloud 179 Облако

    Все доступные константы из коллекции MsoAutoShapeType смотрите на сайте разработчиков.

    Создание объекта ShapeRange

    Создание коллекции ShapeRange из выбранных фигур:

    Объектная переменная myShapeRange не обязательна, можно обратиться непосредственно к возвращенной коллекции, например, присвоив всем ее элементам синий цвет:

    Примеры работы с фигурами

    Пример 1

    Создание пяти разных фигур из кода VBA Excel методом Shapes.AddShape:

    Результат работы кода:

    Фигуры на листе Excel

    Пример 2

    Работа с одной фигурой:

    Пример 3

    Редактирование одновременно нескольких фигур с помощью коллекции ShapeRange:

    Пример 4

    Редактирование одновременно всех фигур на рабочем листе с помощью коллекции ShapeRange:

    Пример 5

    Добавление надписи (текста) на фигуру:

    Результат работы кода:

    Фигура Облако с надписью

    Изменить цвет текста, например на черный, можно двумя способами:

    С константами из коллекции MsoThemeColorIndex вы можете ознакомиться на сайте разработчиков.

    Пример 6

    Удаление фигур с рабочего листа из кода VBA Excel с помощью метода Delete.

    Удаление одной фигуры:

    Удаление нескольких фигур:

    Удаление всех фигур с рабочего листа:


    Содержание рубрики VBA Excel по тематическим разделам со ссылками на все статьи.

    18 комментариев для “VBA Excel. Работа с фигурами (Shapes)”

    1. Сбитый Лётчик Небосводов

      Здравствуйте!
      Можно ли константы MsoAutoShapeType задавать переменными?
      Что-то у меня не получается. Как ни пробую, всё Run-time error ’13’: Type mismatch.

      1. Евгений

        Добрый вечер!
        У меня работает:

        То же самое при использовании текстовых значений констант MsoAutoShapeType:

    2. Сбитый Лётчик Небосводов

      Спасибо, лучший друг VBAшника Евгений!
      У меня не работает при str = «msoShapeOctagon» и .AddShape str,…
      Ваше решение меня выручает.

    3. Сбитый Лётчик Небосводов

      Можно ли наносить на Shapes надписи? И как, если да?
      Не могу найти, а нужно срочно. Можно, разумеется ответить ссылкой.

      1. Сбитый Лётчик Небосводов

        Можно.

          1. Сбитый Лётчик Небосводов

            Добавил бы

        1. здравствуйте
          Если вопрос не по теме — просьба перенести в соответствующий раздел.
          На рабочем Листе есть фигуры/картинки/фотографии…
          которым присвоены свои имена («Прямоугольник 1», «Рисунок 2″…)
          при копировании (внутри листа) они получают новые имена (фигура 12; рисунок 4 …)
          У меня 2-а вопроса:
          1) как макросом определить наименование картинки которая расположена в диапазоне D3:F5 ?
          2) при изменении размера, встроенный компилятор показывает код:

          какой написать код , чтобы машина выполняла действия ( изменение размера) без Selection ?

          1. Евгений

            Добрый день, 0mega!
            1) Как макросом определить наименование картинки, которая расположена в диапазоне D3:F5?
            Так можно найти фигуру, левая верхняя точка которой находится в диапазоне D3:F5:

            2) Какой написать код , чтобы машина выполняла действия (изменение размера) без Selection?

              1. Евгений

            1. Добрый день!
              Как соединить кодом VBA две фигуры соединительной линией так, чтобы при перемещении одной из фигур соединитель не отрывался от нее?

            2. Есть два объекта shapes. В одном стоит цифра. надо читать эту цифру и на основе цифры написать на другой объект shapes определенный текст. Заранее спасибо.

              1. Евгений

                Привет, Надир!
                Примерный код может быть таким:

            3. Добрый день. Подскажите, пожалуйста, как для автофигуры назначить нажатие? Задача такая, что если по нажатию на автофигуру срабатывал бы код Application.CommandBars.FindControl(ID:=1605).Execute, а при втором нажатии срабатывал бы код Application.CommandBars.FindControl(ID:=1605).Reset
              Буду очень благодарен.

              1. Евгений

                Здравствуйте, Юрий!
                Объявите переменную уровня модуля типа Boolean. При открытии файла, она будет иметь значение False. Пример кода:

    Добавить комментарий

    Ваш комментарий будет опубликован после прохождения обязательной модерации. Исходящие ссылки не допускаются. Время модерации составит от нескольких минут до нескольких часов в зависимости от времени суток и занятости модератора.