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 по тематическим разделам со ссылками на все статьи.

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

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

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

      1. Евгений

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

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

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

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

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

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

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

        Можно.

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

            Добавил бы

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

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

      1. Евгений

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

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

          1. Евгений

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

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

      1. Евгений

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

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

      1. Евгений

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

    8. Григорий

      Добрый день!
      Вот так на Активном листе создаются прямоугольники (один запуск — один прямоугольник) один под другим:

      а вот так я их удаляю:

      Вопрос: нужно чтобы прямоугольник, сначала выделялся, затем шел диалог запроса: Удалять-Оставить-Завершить.
      Удаляет и оставляет и завершает, но … с выделением уже голову сломал. Может кто подскажет: что не так?

      1. Евгений

        Здравствуйте, Григорий!
        Попробуйте после With shp вместо .Select вставить следующую строку:

      1. Евгений

        Добрый вечер, Антон!
        Перемещать фигуры можно:

    9. Добрый день.
      Как можно фигуру (в моём случае это картинка на листе) назначить как картинку или фон для пользовательской формы?

    10. Александр

      Здравствуйте. А можно как-нибудь удалить строку, если в ячейке нет объекта Shape&

    11. Александр

      Здравствуйте, есть ли возможность присвоить имя в ячейке для объекта SHAPE?

      1. Евгений

        Добрый день, Александр!
        Вы хотите слово, записанное в ячейку, присвоить в качестве имени объекту Shape?

        1. Александр

          Добрый день. Нужно, чтоб в ячейке, куда вставляется объект Shape вставлялось еще наименование данного объекта

          1. Евгений

            Не знаю, как вы вставляете фигуру в ячейку, но если привязать ее по координатам, то имя фигуры можно присвоить значению ячейки следующим образом:

            Для любого случая:

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

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